两个Access表的如何通过一个查询显示在一个页面？

给你一段代码参考：
<%
 if request("dj")<>"" then
sql="select * from 表A where level="&request("dj")&" order by id asc"
else
sql="select * from 表A  order by id asc"
end if
 Set rs= Server.CreateObject("ADODB.Recordset")
 rs.open sql,conn,1,1

 set rs1=server.createobject("adodb.recordset")
sql1="select * from 表B order by id asc"
rs1.open sql1,conn,1,1


  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 记 录</p>"
略…………
----------------------------
<%do while not rs.eof%>
<%=rs("City1")%> <%=rs1("Name1")%>
---------------------------------------
<% i=i+1
          if i>=MaxPerPage then exit do
          rs.movenext
          rs1.movenext
       loop
          %>