Cito e integro rotteninside
codice:
' trovo a random un record della tabella e lo visualizzo

randomize()
Conta = rs_Cat.recordcount
numeroCasuale = Int((Conta - 0 + 1)*Rnd() + 0)
rs_cat.move numerocasuale

' cicla dal recotd estratto fino alla fine
Do Until rs_cat.EOF
  ' visualizza record
  rs_cat.MoveNext
Loop

' torna all'inizio
rs_cat.MoveFirst

' cicla dall'inizio fino al record estratto
Contatore = 1
Do While Contatore < numerocasuale
  ' visualizza record
  rs_cat.MoveNext
Loop