If Not EOF() 是不是不对?我想将表从头到尾走一遍，请教... 谢谢

CCXF2004

Private Sub 命令4_Click()
    DoCmd.GoToRecord , , acFirst
     Do While Me.CurrentRecord
     i = 0
            ts.Value = i
       i = i + 1
      If Not EOF() Then DoCmd.GoToRecord , , acNext
     Loop
End Sub
[em24]