codice:
rs.MoveFirst
For X = 1 to casuale
  rs.MoveNext
Next
Però, come ho detto, non conosco MySql e non so se supporta questo metodo, anche se penso di si visto che supporta .MoveFirst...