<% 

Dim cn ,strCnn,rstSchema 

set cn = server.createobject("ADODB.Connection") 
set strCnn = server.createobject("ADODB.Recordset") 
set rstSchema = server.createobject("ADODB.Recordset") 

strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" 
strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;" 
strCnn = strCnn & "Persist Security Info=False" 

cn.Open strCnn 

set rstSchema=cn.openSchema(20) 
rstSchema.movefirst 
Do Until rstSchema.EOF 
if rstSchema("TABLE_TYPE")="TABLE" then 
response.write rstSchema("TABLE_NAME") & "<br/>" 
end if 
rstSchema.movenext 
Loop 
cn.close 

‘’set rstSchema = nothing 
‘’set cn = nothing 
%> 

SQL -->系统表sysobjects 

access---》用ADOX的 例子： 

<% 

Dim cn ,strCnn 

set cn = server.createobject("ADODB.Connection") 
set strCnn = server.createobject("ADODB.Recordset") 


strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\asptest\tree.MDB;Persist Security Info=False" 

cn.Open strCnn 
Set tb = Server.CreateObject("ADOX.Table") 
Set cat = Server.CreateObject("ADOX.Catalog") 
Set cat.ActiveConnection = cn 

For Each a In cat.Tables 
Response.Write a.Name & "<br>" 
Next 

cn.close 
%>