如何取得 MDB 裡面資料表清單

參考
--

        Dim dbfile As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Nwind.mdb"
        Dim str As String = dbfile
        Dim conn As OleDbConnection = New OleDbConnection(str)
        conn.Open()

        Dim dt As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

        conn.Close()

        For i As Integer = 0 To dt.Rows.Count - 1
            Debug.WriteLine(dt.Rows(i)("TABLE_NAME"))
        Next