Got a database that does some back end processing. Client wants a screen to
show what it is doing. (Don't ask me why) Trying the following code,
essentially just trying to get a 4 second pause between the message changing
for testing. When I run it I get the hourglass, no change in the form until
the very end, where it displays the "Sending ALL e-mail group..." message.
What am I doing wrong?

Function TheCA()
On Error GoTo TheCA_Err
'Step 1 - Imports data from MySQL Server to
local---------------------------------------
   Forms!frmTest!lblStatus.Caption = "Importing Data From Web"
   sSleep 4000

'Step 2 - Transfers records to local
table------------------------------------------------
   Forms!frmTest!lblStatus.Caption = "Transferring data to local tables..."
   sSleep 4000

'Sets New flag on web database to No
   Forms!frmTest!lblStatus.Caption = "Clearing New flag on MySQL server..."
   sSleep 4000

'Step 3 - Sends Compliment Autoreply to
customers-------------------------------------
   Forms!frmTest!lblStatus.Caption = "Sending Compliment autoresponse to
guests..."
   sSleep 4000

'Step 4 - Sends Other Autoreply to
customers--------------------------------------------
   Forms!frmTest!lblStatus.Caption = "Sending Other Request autoresponse to
guests..."
   sSleep 4000

'Step 5 - Sends All email
group-----------------------------------------------------------
   Forms!frmTest!lblStatus.Caption = "Sending ALL e-mail group..."
   sSleep 4000

TheCA_Exit:
   Exit Function

TheCA_Err:
   MsgBox Error$
   Resume TheCA_Exit

End Function