Ipotizziamo che devi estrarre casualmente un numero compreso tra 1 e 10
codice:
Dim intValore
intValore = (10 - 1) *Rnd() + 1
Non uso Access e non so di preciso se quanto ti dirò può esserti utile.
Fai una query con TOP 1 e ORDER BY tuoCampoId DESC
poi assegni ad un array di indice 2 (se vuoi estrarre 3 records casuali) tre valori random.

La query di estrazione la fai con il test di appartenenza IN, passando i valori dell'array, in modo da cavartela con una sola query, appunto.