registro al azar

[eduvivi]

Hola tengo este cripts para seleccionar registros al azar de un aBD Access, no salta error alguno pero siempre me seleciona el mismo registro

<%
Dim oConn, RS, registros, registro_azar
' Conectamos a la BD.
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
oConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("clientes.mdb")
' seleccionamos todos los registros.
sql = "SELECT * FROM datos WHERE grupo = 'servicios'"
RS.OPEN sql, oConn, 1, 1
'los contamos con RecordCount.
registros = rs.RecordCount
'Iniciamos randomize para que funcione el Rnd.
Randomize()
'obtenemos un regitro al azar.
registro_azar = Int((registros * Rnd))
'Vamos hasta el registro.
RS.Move(regitro_azar)
'Mostramos donde estamos parados.
response.write RS(0)
'Cerramos y limpiamos (como siempre).
RS.Close
oConn.close
Set RS = Nothing
Set oConn = Nothing
%>