VB.NET connexion base mysql et projet VBNET

Imports MySql.Data.MySqlClient

Public Class PC_UI_TO_CDA


    Public Sub ObtenirListeReacteur()

        Dim ChaineConnexion As String = String.Empty
        Dim ChaineSQL As String = String.Empty
        Dim StrTexte As New System.Text.StringBuilder
        Dim Connexion As MySqlConnection

        Try

            ' Parametrage de la chaine de connection
            ChaineConnexion = String.Format("server={0};user id={1}; password={2}; database=mysql; pooling=false", "localhost", "root", "")

            Connexion = New MySqlConnection(ChaineConnexion)
            Connexion.Open()

            'Code
            Dim MonAdapteur As MySqlDataAdapter
            Dim MonDataTable As DataTable
            Dim MonDataSet As New DataSet
            Dim DataRowLocal As DataRow

            ChaineSQL = "SELECT * FROM reacteur"
            'ChaineSQL = "SELECT * FROM historique.reacteur"
            MonAdapteur = New MySqlDataAdapter(ChaineSQL, Connexion)
            MonAdapteur.Fill(MonDataSet, "membres")
            MonDataTable = MonDataSet.Tables("membres")

            For Each DataRowLocal In MonDataTable.Rows
                If (DataRowLocal.Item(0) IsNot Nothing) Then
                    ListBox1.Items.Add(Convert.ToString(DataRowLocal.Item(0)))
                End If
                If (DataRowLocal.Item(1) IsNot Nothing) Then
                    ListBox2.Items.Add(Convert.ToString(DataRowLocal.Item(1)))
                End If
                If (DataRowLocal.Item(2) IsNot Nothing) Then
                    ListBox3.Items.Add(Convert.ToString(DataRowLocal.Item(2)))
                End If
            Next

        Catch ex As Exception
            StrTexte.AppendLine("Erreur de connexion !")
            StrTexte.AppendLine("Modele")
            StrTexte.AppendLine("Constructeur : PC_config_ExeSQL")
            StrTexte.AppendLine(ex.ToString)
            MsgBox(StrTexte.ToString)
        Finally
            ChaineConnexion = String.Empty
            Connexion.Close()
        End Try

    End Sub

End Class

    Dim connexion As MySqlConnection = New MySqlConnection()
        Dim monadaptateur As MySqlDataAdapter = New MySqlDataAdapter()
        Dim macom As MySqlCommand = New MySqlCommand
        Dim marequete As String
        Dim tablereacteur As New DataTable

        Dim maliste As New List(Of String)
        Dim myDataTable As New DataTable
        Try

            connexion.Open()
            marequete = "SELECT * FROM reacteur"

            macom.Connection = connexion
            macom.CommandText = marequete
            monadaptateur.SelectCommand = New MySqlCommand(marequete, maconnexion)

            For i As Integer = 0 To myDataTable.Rows.Count - 1
             'je veux afficher les valeurs dans leur txtbox respectif
                txtnum.Text = myDataTable.Rows(i)("numero").ToString
                txtcap.Text = myDataTable.Rows(i)("capacite").ToString
                txt_local.Text = myDataTable.Rows(i)("localisation").ToString

                'MsgBox( myDataTable.Rows(i)("nom").ToString)

            Next
            connexion.Close()

        Catch ex As Exception
            MsgBox("erreur : " + ErrorToString())

        End Try

Try

Catch

Finnally
    connexion.Close()

End Try

Dim monobjet As New PC_UI_TO_CDA
        monobjet.ObtenirListeReacteur()

Public Class Reacteur_ENT

#Region "--- Attributs ---"

    Private Shadows zId As String = String.Empty
    Private Shadows zCapacite As String = String.Empty
    Private Shadows zLocalisation As String = String.Empty

#End Region

#Region "--- Propriétés ---"

    Public Property Id() As String
        Get
            Return Me.zId
        End Get
        Set(ByVal value As String)
            Me.zId = value
        End Set
    End Property

    Public Property Capacite() As String
        Get
            Return Me.zCapacite
        End Get
        Set(ByVal value As String)
            Me.zCapacite = value
        End Set
    End Property

    Public Property Localisation() As String
        Get
            Return Me.zLocalisation
        End Get
        Set(ByVal value As String)
            Me.zLocalisation = value
        End Set
    End Property

#End Region

#Region "--- Constructeur ---"

    Public Sub New()

    End Sub

#End Region

End Class

Public Class Reacteur_LST
    Inherits List(Of Reacteur_ENT)

End Class

Public Function ObtenirListeReacteur() As Reacteur_LST

' La partie de la boucle devient :
            Dim MaCol As Reacteur_LST
            Dim EntX As Reacteur_ENT

            For Each DataRowLocal In MonDataTable.Rows
                EntX = New Reacteur_ENT
                If (DataRowLocal.Item(0) IsNot Nothing) Then
                    EntX.Id =(Convert.ToString(DataRowLocal.Item(0)))
                End If
                If (DataRowLocal.Item(1) IsNot Nothing) Then
                    EntX.Capacite =(Convert.ToString(DataRowLocal.Item(1)))
                End If
                If (DataRowLocal.Item(2) IsNot Nothing) Then
                    Entx.Localisation = (Convert.ToString(DataRowLocal.Item(2)))
                End If
                MaCol.Add(EntX)
            Next


            Return MaCol

End Function