teniendo en cuenta la funcion randomize():
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DataBase.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
'Realizamos la consulta SQL
sqltxt="SELECT * from tabla"
rs.Open sqltxt, conexion
'Determinamos la cantidad de registros existentes en la BD
nroreg=rs.recordcount
%>
<%If Not rs.EOF Then%>
<%
'Generamos un numero teniendo como limite el nro de registros
Randomize()
num=Int(nroreg * Rnd())+1
%>
<%
'Nos Posicionamos en el nro de registro generado
rs.Absoluteposition=num
%>
<%=rs("campo01")%>
<%=rs("campo02")%>
<%End If%>
espero te sirva
<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>