Visual Basic - COMO HAGO PARA QUE LA BARRA ProgressBar SE MUESTRE

HOLA A VER SI ALGUIEN ME AYUDA TENGO ESTE PROCESO

miRS.Open sSQL, miBD, adOpenStatic, adLockOptimistic
miRS.MoveLast
miRS.MoveFirst
ProgressBar1.Visible = True
ProgressBar1.Min = 1
ProgressBar1.Max = miRS.RecordCount
ProgressBar1.Value = 1
i = 0
If Not miRS.EOF Then
miRS.MoveFirst
Do While bFin = False
i = i + 1
ProgressBar1.Value = i
dTotalOperacion = dTotalOperacion + miRS("MontoCuo")
If dTotalOperacion > TxtOperacion.Text Then
bFin = True
End If
miRS.MoveNext
Loop
End If

MsgBox dTotalOperacion

YO LO Q QUIERO ES QUE CUANDO EL VALLA BUSCANDO LOS REGISTROS EN MI FORMULARIO ME APARESCA EL ProgressBar1 activa o sea que se muestre que esta haciendo algo el programa. yo lo estoy haciendo asi pero me hace el proceso Y no me muestra la barrita que deberia hacer...

SI ALGUIEN PUEDE AYUDARME HAY ESTA MI CORREO PORFA AYUDENME ....

GRACIAS.........

Prueba con lo siguiente:

despues de la linea del DO y antes de hacer i=i+1 poné un doenvents ejemplo:

Do While bFin = False
DoEvents

i = i + 1
ProgressBar1.Value = i
dTotalOperacion = dTotalOperacion + miRS("MontoCuo")
If dTotalOperacion > TxtOperacion.Text Then
bFin = True
End If
miRS.MoveNext
Loop

saludos!