Originariamente inviato da binos1979
Tuaconnessione.open
strsql = "Insert into Tuatabella (d1,d2,d3) VALUES ('" & t1.text & "', '" & t2.text & "' ,'" & t3.text & "') "
dim areader As new OleDbDataReader
Dim objCommand As New OleDbCommand(strsql, Tuaconnessione)
areader = objCommand.ExecuteReader()
Tuaconnessione.close

Questo ti fa inserire i record se sono tutti di tipo testo sul datasase .
Per gli altri tipi guarda in rete che trovi le specificazioni del caso
per fare un insert non è necessario eseguire un ExecuteQuery poichè il command non restituisce righe...