rs.movelast
progbar.max=rs.recordount-1
progbar.min =0
do while not rs.eof
progbar.value = rs.absoluteposition
.....
.....
rs.movenext
loop