问个rs.delete的问题

rs_s.open sql,conn,1,3
If Not rs_s.eof Then
do while not rs_s.eof
purl = rs_s("purl")
pname= rs_s("pname")
usm = server.mappath(purl)
ubig = server.mappath(Replace(purl,"_1",""))
If fso.fileExists(usm) Then
fso.deletefile usm
End If
If fso.fileExists(ubig) Then
fso.deletefile ubig
End If
'对用户日志,uu操作
Dim recs,loginfo
recs = "set dphoto=dphoto + 1,uuu=uuu + "& D_photo
loginfo = "删除相册-"&aname&",图片" & pname & "不合格，被删除"
Call setUMode(uid,recs,loginfo)'更新a表用户相关数据
rs_s.delete()'!!!如果注释掉这句可正常更新 ，否则操作不报错，数据删除，但a表用户数据没有更新
rs_s.movenext
Loop
End If
==================
setUMode方法里是执行一个update语句
sub setUMode(uid,recs,info)
If uid = "" Then Exit sub
Dim sql
sql = "update hl_usermode " & recs & " where uid=" & uid
conn.execute sql

End sub
这个过程在上面有rs.delete时不能正常更新，uid确定不空，没有错误
是不是记录集打开状态的问题，还是rs.delete有什么我还不知道的问题
呵呵 谢谢帮个忙啦