Data Report Showing

Im only using data report right now. I'm having a problem with it, I observed that a while the report is STILL showing (fetching records and stuff), the execution of the program continues. Example code:
VB Code:
Report1.Show
dSQL = "delete from ph_queue where ph_username = '" & Trim(mLogUsername) & "'"
EstablishRecordsource dRstCtrl, dSQL, dConCtrl, adOpenStatic, adCmdText
'EstablishRecordsource is a function I created, its for processing a command
What I intend to do is for "EstablishRecordsource" function to execute right after the report has been displayed, and not before it. The problem here is as the program executes Report1.Show, it continues the execution on the succeeding line even if the report is yet to be dislayed. As you can see I'm deleting something on the database, so the report will malfunction.

Is there any way for me to test or an event in the report that will tell me that the report has finished retrieving the data and it is actually show in the screen.

Im quite stuck. Thanks for the help.

EDIT: I just need confirmation regarding this events. I know I might be able to use these things:

On Data Report:
Activate()
AsyncProgress()
QueryClose()

On Connection:
ConnectComplete()
Disconnect()
ExecuteComplete()

Will any of these events could be used for what I need? I just need a brief explanation on these events. Thanks