Dim Cmd As OleDbCommand
            Dim SQL As String
            Dim objCmd As New OleDbCommand

            Dim Con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tuodb.mdb")

            SQL = "INSERT INTOtuatabella (*) VALUES ('valore1','valore2','valore3')"
            Cmd = New OleDbCommand(SQL, Con)

            Con.Open()
            objCmd = New OleDbCommand(SQL, Con)
            objCmd.ExecuteNonQuery()
            Con.Close()