ADO中的Connection对象有一个OpenSchema的方法可以从数据库中获得数据库的相关信息：数据表名，表类型。
如下代码段：

Dim conn1 as ADODB.Connection
Dim infor as ADODB.Recordset
Dim str as string
Set conn1 = New ADODB.Connection
conn1.open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data
Source=c:\exam.mdb"
Set infor =conn1.OpenSchema(adSchemaTables)
While not infor.eof
   Debug.print "数据名称：" & infor!TABLE_NAME & "数据表类型：" & infor!TABLE_TYPE
   infor.MoveNext
Wend
infor.Close