Ecco quello che ho scritto per fare le insert:

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim m_conn As OleDbConnection
m_conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Lavoro\classe.mdb;Persist Security Info=False")
Dim m_cmd As OleDbCommand

Dim strInsert As String


m_conn.Open()

Dim db As New OleDbConnection
Dim ds1 As DataSet
ds1 = New DataSet("classe")

m_cmd = m_conn.CreateCommand

strInsert = "INSERT INTO classe (nome, cognome, sesso, eta) VALUES ('Marco', 'Rossi', 'M', '30') "

m_cmd.CommandText = strInsert
m_cmd.ExecuteNonQuery()
m_conn.Close()

End Sub
End Class




ciao