VBA Access: Deleting entries in a recordset

I am trying to iterate through a recordset and delete records as I go, but first I do some things with the data.

VB Code:

Do Until source.EOF
            ....
            source.Delete
            source.MoveFirst
Loop

It appears that every time, the 2nd record get's skipped. And I have to run the code a second time to make sure it gets the 2nd record. I swear this wasn't happening before, bt I don't know. Do you know what would cause something like this with ONLY the second record?

did u try requery/refresh after each delete?