Ho un pulsant (commandbutton): clicco e mi fa una ricerca in db Access:

codice:
Do While Not rs.EOF
bla bla bla bla
bla bla bla bla
bla bla bla bla
rs.movenext
Loop

ecco mentre è in Loop in quanto sta concludendo di terminare, vorrei che ci fosse una progress bar e che vada avanti fino al termine dei record in db.
Quindi una volta finito il loop il progress bar = 100%

Aiuto. vi prego con codice sorgente.