The example invokes the ExportReport method and queries the AsyncCount property in a While loop to determine if any asynchronous operations are still executing. When all are done, the DataReport object is unloaded.
DataReport1.ExportReport rptKeyText, "c:\MyDocuments\Report", True
While DataReport1.AsyncCount > 0
DoEvents
Wend
Unload DataReport1