Animated progress dialog during long .Execute method?

[dsurls]

I have a VB6 app that executes a crosstab query on a Jet database. However, this query takes 10-20 seconds to complete, and I would like to give the user more feedback during the process than merely an hourglass mousepointer. I have added an animated dialog similar to the Windows "folder-throwing" dialogs, but the animation stops during the execution of the query. I presume it's because the animation is running in the same thread as the database command being executed. Does anyone have any ideas how I might be able to keep the animation going until control returns back from the database .Execute method?

Thanks in advance!