Try this way:
Dim sql As String = "INSERT INTO myTable (myColumn1, myColumn2) VALUES (@C1, @C2)"
Dim sql_to_log As String = sql
sql_to_log = sql_to_log.Replace("@C1", myValueForColumn1.tostring)
sql_to_log = sql_to_log.Replace("@C2", myValueForColumn2.tostring)
Save to database 'sql_to_log'.