如何显示一个数据库里的所有表（ACCESS）

使用这个过程的前提条件是要在调用前写好数据库连接的代码。
一般为
<%sub Schema_show()%>
     

<%=rs.fields(i).name%>

<%if rs.fields(i).name="TABLE_NAME" and (rs("TABLE_TYPE")="TABLE" or rs("TABLE_TYPE")="VIEW") then%>      "><%=rs(i)%>      <%else%>      <%=rs(i)%>      <%end if%>

     
<%end sub%>