如何列舉Access資料庫中的結構資訊

參考資料
OleDbConnection.GetOleDbSchemaTable 方法

Dim CN As OleDb.OleDbConnection
    Dim DA As OleDb.OleDbDataAdapter
    Dim DT As DataTable

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CN = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\XXXXX.mdb;Persist Security Info=True")
        CN.Open()
        DT = CN.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
            New Object() {Nothing, Nothing, Nothing, "TABLE"})

        DisplayData(DT)
    End Sub

    Private Sub DisplayData(ByVal table As DataTable)
        For Each row As DataRow In table.Rows
            For Each col As DataColumn In table.Columns
                Debug.Print("{0} = {1}", col.ColumnName, row(col))
            Next
            Debug.Print("============================")
        Next
    End Sub