If you are working with VB6 then try using
Con.Execute strQry, , adAsyncExecute
Here con is the ADODB.Connection Object
This will make your execution Async
use
con_ExecuteComplete
Event for the completion message
use
MSComCtl2.Animation
object and show a Animated AVI file for your progress indicator.