如何遍历出ACCESS数据库中的所有表的表名

帮位网友搜集的，也感谢这位网友第一次回复小弟简陋的blog。

<%
 strConn="DBQ="+server.mappath("tmp_bbsdata.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 set objConn=server.createobject("Adodb.connection")
 objConn.open strConn
 set rsSchema=objConn.openSchema(20)
 rsSchema.movefirst
 Do Until rsSchema.EOF
 if rsSchema("TABLE_TYPE")="TABLE" then
         response.write rsSchema("TABLE_NAME") & "<br>"   
 end if
 rsSchema.movenext
 Loop
 set objConn=nothing
%>