Hola.. mira yo acabo de hacer algo parecido
por ejemplo si tienes un rutna asi.
Set RSEjemplo = Nothing
RSEjemplo.Open ("SELECT * FROM Tabla"), CnSQLconexion, adOpenStatic, adLockReadOnly
ProgressBar.value=0
RSEjemplo.MoveFirst
While RSEjemplo.EOF = False
El Proceso............
Var_Progreso=Var_Progreso + val(100 /RSEjemplo.RecordCount )
ProgressBar.value=var_progreso
RSEjemplo.MoveNext
Wend
Set RSEjemplo = Nothing
Cuando termina el proceso termina el Progressbar.. has la prueba y veras.
![Scream :scream:](https://solocodigo.com/Smileys/solocodigo/scream.gif)