ADO Async Querys and FetchProgress

[bashfirst]

I would very much like to create a progress indicator for long queries based on the FetchProgress event in ADO. Does anyone have any sample code that uses the FetchProgress or FetchComplete events for ADO recordsets?

Bash