Prova cosi
dichiari la variabile I come integer
Apri il db (esempio come riportato sotto)

Rs.Open "Select * from [Aperto15Lpt]", DB, adOpenStatic, adLockOptimistic

i=0

do until rs.eof
i=i+1
progressbar1.value=i
rs.movenext
loop

E' uno dei vari metodi.
Ciao