Se il campo della tabella è numerico devi utilizzare questa sintassi:
codice:
Dim strSQL As String
strSQL = "Insert into NomeTabella(NomeCampo) " & _
         "Values (" & valNomeCampo & ")"
connessione.Execute strSQL
Se invece è una stringa devi utilizzare quest'altra con gli apici:
codice:
Dim strSQL As String
strSQL = "Insert into NomeTabella(NomeCampo) " & _
         "Values ('" & valNomeCampo & "')"
connessione.Execute strSQL