Visual Basic - ProgressBar

Tengo una base datos de unos 14.000 registros y hago varios select con condicion, el problema es q tarda unos cuantos segundos y quiero ponerle una progress bar.
Utilizo rs.open "select....
y no se cuanto tiempo tarda en mostrarlo
Gracias

Pues trabajar con estos valores es un poco complicado

primero tienes ke declarar tu RecordSet de esta forma

dim withevents xxx as ADODB.recordset

al momento de crear el recordset con Open, y tienes que abrirlo de forma asincrona, con el valor adstateasync o algo asi, puedes encontrar el valor en el axaminador de objetos, y buscando en el MSDN

luego en el evento FetchProgress, tienes valores que te da lo ke kieres, pruebalo ok.

Saludos