Visual Basic - barra de progreso

Como puedo hacer para que mientras cargo unos registros de excel me aparezca una barra de progreso en el formulario. No se cual es el tope de los ergistros porq el ciclo que tengo es este

Do While cel <> ""
cel = wbLibro.Worksheets(1).Range("B" & X).Value
If cel = "" Then
wbLibro.Close
Exit Sub
End If
monto = wbLibro.Worksheets(1).Range("AD" & X).Value
Dim sql As String
sql = "SELECT Cedula,Apellido,Nombre,Direccion FROM Empleados WHERE Num_Telefonico= '" & cel & "'"
Set rs = db.Execute(sql)
If Not rs.EOF Then
MSFlexGrid1.TextMatrix(Y, 0) = cel
MSFlexGrid1.TextMatrix(Y, 1) = rs!Cedula
MSFlexGrid1.TextMatrix(Y, 2) = rs!Apellido
MSFlexGrid1.TextMatrix(Y, 3) = rs!Nombre
MSFlexGrid1.TextMatrix(Y, 4) = rs!Direccion
MSFlexGrid1.TextMatrix(Y, 5) = monto
Y = Y + 1
loop
wbLibro.close

lo que quiero es que aparezca al presionar el boton y cierre cuando se terminen de cargar los registros

el maximo de registros es el MsFlexGrid1. Rows y ahi antes del loop le vas umando una ala barra de progreso

El problema es que no tengo el maxino de filas, porq el flexgrid a medida que se va llenando va ingresando las filas, y si lo coloco de esta manera me da siempre 100%... pueto que el maximo y el valor son iguales.

para hacer una barra de progreso debes de saber dos cosas:

el tamaño máximo de la barra
el valor por el

para hacer una barra de progreso debes de saber dos cosas:

el tamaño máximo de la barra
el valor por el que va

para el primero deberás abrir la base contar los datos y cerrarla. Vuelves a abrirla y cada vez que cargue un dato le vas sumando uno al valor por el que va.

Abrir una base y contar los datos es rápido.

No hay otra manera, al menos, yo no la conozco.

Tengo un ocx para presentarte el porcentaje y la barra en función de estos dos valores si lo quieres...

saludos