Como vincular un ProgressBar1 con carga de bd

[tazzwt]

Esa duda siempre la eh tenido, al tener una base de datos super llena, que tarde tanto tiempo en cargar, el usuario no sabe cuanto tiempo tardara para completarse, se podra mostrar a medida que se carga una barra de llenado con el ProgressBar1..

Puse el ejemplo de la bd, pero puede ser cualquier proceso que tome tiempo en realizar..

Código vb:

Dim x As Long  
Label1 = x
Label1 = CLng((ProgressBar1.Value * 100) / ProgressBar1.Max)
ProgressBar1.Value = x