if Rs.recordcount >=UpdataMaxonce then为何没起作用

if Rs.recordcount >=UpdataMaxonce then为什么没起作用？
Rs.Open "Select top 1 * from ["&TablePrefix&"PostAttachments] where RoleID="&CookieUserRoleID&" and UserName='"&CookieUserName&"'",Conn,1,3
Set Rs1=Execute("select * from ["&TablePrefix&"Roles] where RoleID="&CookieUserRoleID&"")
dim UpdataMaxonce
if rs1("RoledataMaxonce")>0 then UpdataMaxonce = rs1("RoledataMaxonce")
if rs1("RoledataMaxonce")<=0 then UpdataMaxonce = SiteConfig("dataMaxoOnce")
if Rs.recordcount >=UpdataMaxonce then
Alert("超出每天上传的数量"&UpdataMaxonce&"了！")
.......省略

rs1("RoledataMaxonce"),SiteConfig("dataMaxoOnce"),UpdataMaxonce读取出来的数据全部正确，为什么就是红色代码没起到作用？

[解决办法]
不用使用recordcount直接：Count(0)
recordcount貌似用记录集方式总数：-1
[解决办法]
Rs.CursorLoction = 3
Rs.Open ...