sql1="select * from 1 order by id"
set rs1=conn.execute(sql1)
if not rs1.eof then
do while not rs1.eof
sql2="select * from b where a_id="& rs1("id")
set rs2=conn.execute(sql2)
if not rs2.eof then
do while not rs2.eof
.......
'do something
rs2.movenext
loop
end if
.....
do something
rs1.movenext
loop
end if
...
conn.close
set conn=nothing

在sql2="select * from b where a_id="& rs1("id")
的*前面加个top 5就成了。。。。。