获取数据库中表名

用的老旧的ASSESS数据库，

用sql语句获取的方式是："select name from MSysObjects where type=1 and flags=0",

跟其他数据库差异很大，而且这MSysObjects还是一个系统隐藏对象，程序想用这种方法的话，要到assess安全设置里设置允许MSysObjects的访问权限，要一个一个数据库单独设置，所以对于我这种一天产生好几个库的情况就直接pass了。

另一种方法是用OLEDB 的OleDbConnection下的GetOleDbSchemaTable方法，刚好我也用的OLEDB，就用这种方法实现了。

        Using conn As New OleDbConnection("***")
            conn.Open()
            Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
            Dim index As Integer = schemaTable.Columns.IndexOf("TABLE_NAME")
            For i As Integer = 0 To schemaTable.Rows.Count - 1
                Dim row As DataRow = schemaTable.Rows(i)
                Dim aa As String = row.ItemArray.GetValue(index).ToString

    ……
            Next
        End Using