updata 怎么用呀 大家帮我看看

错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'rs1.Updata'
/asp/enter.asp, 第 42 行


set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open "userBBS",conn,adOpenkeyset,adLockOptimistic,adCmdTable
while not rs1.EOF
if rs1("uname").value=Uname then
Session("enroltime")=rs1("enroltime").value
Session("money")=rs1("money").value
Session("maininfnum")=rs1("maininfnum").value
Session("followinfnum")=rs1("followinfnum").value
rs1("enternum")=rs1("enternum")+1
Session("enternum")=rs1("enternum").value
Session("neartime")=rs1("neartime").value
riqi=date()
rs1("neartime").value=riqi
rs1.Updata
rs1.MoveLast
end if
rs1.MoveNext
wend
rs1.close

update拼错了 真低级

没问题了吧