Originariamente inviato da multijet
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
:master: :rollo: non penso proprio. Il quel caso il recordset è già popolato!