Sigh... first... DoEvents isn't the answer here.

Secondly... it sounds like you have some design problems there too... and maybe lacking some understanding in how ADO works or should work.

Also, this isn't the best or even recommended way to perform action querries:
RsMain.Open "DELETE * FROM Inventory WHERE EntryType=1 AND EntryNo='55'"

You should look into the Command object and the .Execute method to perform those (action queries are SQL statemetns that don't return data but perform an action... insert, update, delete....)

-tg