假设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