'假设mCnnDB是个已打开某一数据库的ADO.Connection
'获取数据库中的所有表名关键是用到ADO.Connection的OpenSchema方法
'该方法返回一个只读的数据集,包括系统表和用户表.
'因此,需要一个集合来保存其中的用户表
    Public Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim rs As New ADODB.Recordset()
        rs = mCnnDB.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not rs.EOF
            If rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(rs("TABLE_NAME").Value)
            End If
            rs.MoveNext()
            If rs.EOF Then Exit Do
        Loop
        rs.Close()
        rs = Nothing
        Return t
    End Function