出现的错误　　附件图片剪切了下来

　　代码如下

Private Sub Command2_Click()
Set rs2 = New Recordset
rs2.Open "Update tusers set mRemain='" & addmoney.Text & "'where sCardid='" & cardid.Text & "'", conn, adOpenDynamic, adLockOptimistic, -1
rs2.Close
End Sub

表的 类型都在这 你帮我看看吧 该怎么改啊 谢谢了 我修改不了啊

谢谢你啊  我已经找到错误了  也知道怎么该了   多亏了你哈   谢谢