Select con random

Encontré la solución:

objrst.Open "SELECT * FROM FRASES",objconnection,3,3

randomize timer
'randomiza con el tiempo del sistema, para que no siga una secuencia
azar = int(objrst.RecordCount * Rnd + 1)
'formula para randomizar, donde recordcount es el maximo y 1 es el minimo
objrst.AbsolutePosition = int(azar)
'colocamos el puntero entre posicion minima y la recordcount


Gracias por la lectura

Karma.



"Karma" escribió en el mensaje
news:bn0erj$dp$

Hola, me gustaria sacar un registro aleatorio de una tabla de una base de
datos access 97
¿Sabrian como hacerlo?

Seria para añadirlo a esta select
objrst.Open "SELECT TOPIC FROM TOPICS",objConnection,3,3

Gracias de antemano

Karma.