Random más ágil

[emajesus]

Estimados amigos:

Empleo el siguiente código para rescatar registros aleatorios de mi BD. No obstante, me da la impresión de que al ser la BD muy voluminosa, retarda 'bestialmente' la carga del registro y con ello de la página. ¿Existe alguna manera de agilizar este código o existe alguno más simple?

Gracias,

Emajesus


<%
set objCON = Server.CreateObject("ADODB.Connection")

objCON = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= diccionario.mdb"

set objRS = Server.CreateObject("ADODB.Recordset")

objRS.open "SELECT palabra, descripcion FROM glosario", objCON, 3, 1

Dim rndMax
rndMax = CInt(objRS.RecordCount)

objRS.MoveFirst

Dim rndNumber
Randomize Timer
rndNumber = Int(RND * rndMax)

objRS.Move rndNumber

response.write("<center><b>[" & objRS("palabra") & "]</b></center><br>")
response.write(objRS("descripcion"))
%>