prova a scrivere

codice:
Dim conn As New OleDbConnection 
conn.ConnectionString = strConnAccess 
conn.Open() 

Dim strsql as String = "insert into ..." 

Try 
Dim MyCommand As New OleDbCommand(strsql, conn) 
Dim NRec as Integer = MyCommand.ExecuteNonQuery() 
Catch err As Exception 
MsgBox(err.InnerException.ToString & " " & err.Message & " salva ") 
End Try