莫名的问题，急，各位大虾帮帮忙吧!!!

dim strid

strsql="select @@identity from t_user"
rs.open strsql,conn,2,3
strid=rs.fields(0)
rs.close


strsql="select * from t_xxzx_ygtx where username='nmsadmin'"
rs.open strsql,conn,adOpenDynamic,adLockOptimistic
rs.addnew
rs("id")=strid '去掉这一行就没错误了
rs("username")=dlm
rs("xm")=request("zwm")
rs("gl_sqdel")=1
rs.update
rs.close

运行后：

Microsoft OLE DB Provider for SQL Server 错误 '80040e21'

多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。

请问是什么错误？怎么解决？