Run-time error '3052' 1

[dbuuch]

i have a code that is used to zap a table before another one is called to populate it. this is the portion of the code:

Set rst = dbs.OpenRecordset("R100", dbOpenDynaset)
Do Until rst.EOF
With rst
rst.Delete
rst.MoveNext
End With
Loop
rst.Close

In recent times, however, i keep getting a run-time error (#3052) when the code hits the rst.delete line. the following is the error i get:
"File sharing lock count exceeded. Increase MaxLocksPerFile registry entry."

However, when i kill the code and keep re-trying to execute the same code, it always seem to work after a few attempts.

Can anyone help me figure this out?

Thanks,
Daniel

 

[RoyVidar]

Why use recordset? Why not:

[tt]dbs.execute "delete from r100",dbfailonerror[/tt]

I don't know if that'll help on the errormessage, but it's more efficient. If you still get the error, try the suggetsion from the errormessage.

Roy-Vidar

 

[dbuuch]

Thanks Roy, it works and it seems more neat. Thanks you so much.