codice:
pro1.min = 0
pro1.max = rs.recordcount - 1
for i = 0 to rs.recordcount -1
   pro1.value = i
   pro1.refresh
next