También habría otra opción, que aunq no es al azar, azar...
intTotalRecords = RS.RecordCount
Randomize()
intRandomNumber = Int((intTotalRecords * Rnd))
RS.Move intRandomNumber
El problema aquí es que si tu búsqueda contiene 12 registros, una vez que empieces por el 7, te saldrá 7,8,9,...12 pero luego no empieza por el primero. ¿Hay alguna forma de que comience luego por el principio?
