透过ADO取得Access数据库的所有数据表名称

感谢小铺中的老顽童大大提供的方法

Dim DbFile, DBPath, Conn, Rs
DbFile="Db.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath(DbFile)
Conn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & DBPath
Const adSchemaTables = 20
Set Rs = Conn.OpenSchema(adSchemaTables,array(empty,empty,empty,"Table"))
If Not(rs.BOF And rs.EOF) Then
rs.MoveFirst
For y = 1 to rs.RecordCount
    Response.Write Rs("Table_Name") & ""
    Rs.MoveNext
Next
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing