Hey everyone, I'm trying to delete all the records in a table using a while loop. When I executed the following code it deletes two records (out of 300) and immediately encounters EOF and exits the loop. I'm using ado...and I can't figure out why this isn't working.



set rsPic = new ADODB.Recordset
rsPic.Open "SELECT * FROM [PIC]", adCnGLC, adOpenDynamic, adLockOptimistic, _
adCmdText

If rsPic.BOF <> true then
rsPic.MoveFirst
Do While (Not rsPic.EOF)
rsPic.Delete
rsPic.MoveNext

DoEvents
Loop
End If