Duda con ProgresBar

Saludos, tengn un pequeño problema con una barra de progreso en visual Basic 6.0, tengo un proceso donde hago una búsqueda, pero la base de datos esta en la Web, así que tarda mucho, por que ya son muchos registros los que tengo en la tabla, quiero ponerle una Barra de Progreso, pero no encuentro la forma de hacerlo, el ciclo esta esta en un While, lo que quiero es que cuando llegue al 100% me muestre todos los datos, que la barra de progreso vaya avanzando conforme vaya leyendo los registros de la tabla. Espero que me puedan ayudar ya que me urge mucho,
Gracias