Cannot Do Record Searches While Module Running

I have a "background" subroutine running which kicks off a
daily data download at 6:00 AM. I had to do this because
the Windows 2000 scheduler was not working due to the
security setup on my workstation. Anyhow, whenever this
subroutine is running I am able to move about in my
various switchboards. However, when I try to search for a
record, the search dialog comes up and I am able to enter
the search criteria, but when I click "find" I just get
a "ding" and no search takes place. Anyone know why? I
am including the code that is running in the background
(by the way if the code is dorky and there is a better
way, please say so). Thanks and God bless.

While 1 = 1
DoEvents
If Time = "6:00:00 AM" Then
TStart = Timer
TEnd = TStart
'Wait one second so duplicate CHAPFILEs not
kicked off
While TEnd = TStart
TEnd = Timer
Wend
Update_Executive ("Download")
End If
Wend