Importantisimo visual basic [Usar variable en consulta SQL]

[vicentecamesella]

Dim var As String
var = Text1.Text


cmmm.ActiveConnection = cnn
cmmm.CommandType = adCmdText
cmmm.CommandText = "INSERT INTO " & var & _
" (Gastopor, Montopor, Fechadelgasto, Motivodelgasto) " & _
"VALUES ('" & _
Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "')"
cmmm.Execute