RecordSet嵌套查询问题

[hahahoo]

第一个RecordSet查询结果返回的值，循环后作为参数传到第二个RecordSet中再次查询，现在的问题是第一个RecordSet能正常执行，第二个不管怎样，发挥的RecordCount都是-1，意味着没有正常执行。请帮忙看看问题在哪里？

<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Dim categroyID,Uid,sql,rCount
Uid = Request.QueryString("UserId")
Set cat=Server.CreateObject("ADODB.Recordset")
'设置rs的ActiveConnection属性，绑定到连接
Set cat.ActiveConnection = Conn
'设置游标类型
cat.CursorType = 3
'执行SQL语句，读取所有的用户数据，并保存结果到记录集对象rs中
cat.Open "Select * from MainCategroy Order by MainCategroyID"
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = Conn
'循环显示所有的用户数据，同时画出表格
Do While Not cat.EOF
%>
<tr>
<td class=font002 vAlign=center align=middle height=22><%=cat("MainCategroyName")%></td>
<%
sql = "SELECT * FROM Authentic WHERE UserId=" & Uid & " and MainCategroyID=" & cat("MainCategroyID")
rs.Open (sql)
rCount = rs.RecordCount
response.Write(rCount)
IF rCount <> 0 THEN %>
<td width="63%"><input name=<%=cat("MainCategroyID")%> type="checkbox" value=<%=cat("MainCategroyID")%></td>
<% ELSE %>
<td width="63%"><input name=<%=cat("MainCategroyID")%> type="checkbox" value=<%=cat("MainCategroyID")%> checked></td>
<% END IF %>
</tr>
<%
rs.Close
cat.MoveNext
Loop
%>
</table>

[qiqunet]

第一：
ＲＳ没有设置游标类型


第二：在Do While Not cat.EOF之前最好先＂cat.movefirst＂一下


第三：

屏蔽do循环，给一个固定的ＳＱＬ语句查一下，看还有没有问题，例如：
sql = "SELECT * FROM Authentic WHERE UserId=1 and MainCategroyID=1"

[qiqunet]

检查一下数据库字段“UserId”　和　“MainCategroyID”的数据类型是不是都是数字，不是的话前后加单引号

[笨笨兔兔兔兔兔]

rs.open sql,conn,1,3

这样简单得很，否则就要写上那个很长的游标类型单词：（

懒得背了