I have a text area, lets call it MyTextArea, and a recordset, lets call that MyRecordset.

I need to display the results one at a time in the text area with a brief pause to allow the user to read the error, and I also need to let the user continue what they're doing.

So here's my pseudo code and maybe someone can fill in my imaginary parts

[vba]
While MyRecordset.EOF <> True
MyTextArea.Caption = MyRecordset(0)

'1 sec pause here
MyRecordset.MoveNext
Wend
[/vba]

If I use a while loop to pause I wind up getting an hourglass. Can anyone help?