error: Row cannot be located for updating. Some value may have been changes since...

[berry]

Hi all...

I want to delete the data that over 5years. But my code has such error:
"vb6 error: Row cannot be located for updating. Some value may have been changed since it was last read."

And my code is:

If IsNull(rs.Fields("dateVar")) Then
    GoTo nextStep
    Else
 
    rs.MoveFirst
    Do While (rs.EOF <> True)
        If (DateDiff("yyyy", rs.Fields("dateVar"), Now()) >= 5) Then
               rs.delete
        End If
        rs.Update
        rs.MoveNext
    Loop
 
End If

The error is pointed to the row: rs.delete..

Please help me... I have struggling to this problem many days...

[Killer42]

Um... not too sure about this one, but could you try removing the Update and the MoveNext?

[Killer42]

Um... not too sure about this one, but could you try removing the Update and the MoveNext?

Oops! I mean instead of doing Update and MoveNext every time, make it
If ...
Delete
Else
MoveNext
End If
and remove the Update.