Visual Basic - Nadie lo sabe?

Hola.
Ando buscando la forma de poner un ProgressBar en mi aplicacion. He buscado por la Web, y he visto como una y otra vea insistian con ejemplos tan tontos como:

For x = 1 to x
prograssbar1.value=progressbar.value +1
next

Algunos lo adornan con un timer para introducir un retardo y dar mas realismo.

Esta "solucion" desde luego que llena la barra, pero obviamente NO SIRVE PARA NADA, pues de lo que se trata es de hacerlo MIENTRAS, por ejemplo, se cargan datos de una base de datos, o lo que es lo mismo, hacer las dos cosas al mismo tiempo.

Y esta es la pregunta.

Älguien tiene un ejemplo util de como poner un PrpogressBar mientras se carga una tabla grande. Mas que nada para evitar que usuario no crea que se ha colgado el pc.

Gracias a todos y larga vida al foro

Haber es sencillito si lo piensas Diego,

Set Objet = New Adodb.Recorset
Objet.Open ("Select * From Clientes")

'EL PROGRESSBARD RECORRERA DEACUERDO A LA CANTIDAD DE REGISTROS QUE RECUPERES DE LA TABLA.

With Objet
For x = 1 to .RecordCount 'aqui el cambio, cantidad de registros recuperados.
prograssbar1.value=progressbar.value +1
next
end with

Objet.Close
Set Objeet = Nothing

ESPERO AYUDARTE !!!! SALUDOS

JULIO