请问一个ADO的问题

Question

  请问我这个代码有什么问题呀?我想循环更新数据库中的记录，请问这样有什么问题？
  调试错误:未找到方法或数据成员 Updata  Dim Cn As New ADODB.Connection
  Dim Re As New ADODB.Recordset
  Dim SqlStr As String
  Dim Numb As Long
  Set Cn = New ADODB.Connection
  Set Re = New ADODB.Recordset
  Cn.Open "Provider=Microsoft.jet.OLEDb.4.0;Data Source=F:\ipdb.mdb"
  Re.CursorLocation = adUseClient
  SqlStr = "select * from ip_table "
  Re.Open SqlStr, Cn, adOpenStatic, adLockOptimistic
  Numb = Re.RecordCount
  While Numb <> 0
  Re("status").Value = "1"
  Re.Updata
  Re.MoveNext
  Numb = Numb - 1
  Wend
  Re.Close

Answer 1

Re.Updata 
改为
Re.Update