CODE POUR LISTER LES TABLES DE DONNÉES ACCESS EN VB.NET

       'dimension des variables et tableaux
        Dim Nbcol, Nbrow As Integer 'pour lre nonbre de colonne et de ligne dans la dataset
        Dim Nom_x As String         'pour avoir un chaine de carractère
        Dim MyRs As New ADODB.Recordset()
        Dim MyCn As New ADODB.Connection()
        Dim myDA As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter()
        Dim myDS As DataSet = New DataSet()
        Dim Provider_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
        Dim Suite_provider_ As String = ";Mode=Read|Write;Persist Security Info=False"
        'conection à la base de données
        nom_x="c:\base\été 2001.mdb"  'chemin de la base de données
        MyCn.Open(Provider_ & nom_x & Suite_provider_)
        MyRs = MyCn.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        'Créez et remplissez le DataSet à partir du Recordset. Peuplez la grille du DataSet 
        myDA.Fill(myDS, MyRs, "MyTable")
        'Ferme les connections
        MyRs = Nothing  ' libere la mémoire
        MyCn.Close()    ' ferme la connection
        MyCn = Nothing  ' libere la mémoire
        ' nombre de ligne dans le dataset
        Nbrow = myDS.Tables(0).Rows.Count
        ' nombre de colonne dans le dataset
        Nbcol = myDS.Tables(0).Columns.Count
        'fait une boucle sur le nombre de colonne 
        For Nbcol = 0 To myDS.Tables(0).Columns.Count - 1
            Nom_x = myDS.Tables(0).Columns.Item(Nbcol).Caption
            'si trouver la colonne TABLE_NAME
            If Nom_x = "TABLE_NAME" Then
                'fait une boucle sur les lignes pour trouver les table
                For Nbrow = 0 To myDS.Tables(0).Rows.Count - 1
                    'Pointe sur la colonne suivante pour rechercher le type TABLE
                    Nom_x = myDS.Tables(0).Rows(Nbrow).Item(Nbcol + 1)
                    If Nom_x = "TABLE" Then
                        'ajout dans la liste les tables trouveés
                        List1.Items.Add(myDS.Tables(0).Rows(Nbrow).Item(Nbcol))
                    End If
                Next
            End If
        Next
        'vide le dataset
        myDS.Clear()
        'libere les resources
        myDS.Dispose()