→→→テーブル名の一覧を取得

データベース内のテーブル名を取得する際に使う

GetOleDbSchemaTable

Dim dt As DataTable

Dim dr As DataRow

Dim cn As OleDb.OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" &

                                     "Data Source = D:\***.mdb;Persist Security Info=False")

cn.Open()

dt= cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGrid.Tables

          .New  Object(){ Nothing, Nothing, Nothing, "TABLE"})

cn.close()

For Each dr In dt.Rows

   Debug.writeLine( dr(2))

Next