Error recordset

[Neuron_376]

A lo que tienes arriba...

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
'Set RS=Server.CreateObject("ADODB.Recordset") 'Esta linea no creo que la necesites, aqui puede ser el error.
set RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")

Para realizar la conexion a la base de datos y para realizar la consulta, despues de esto tengo una serie de comparaciones que no me dan error y por ultimo el cierre de la conexion que lo tengo de la siguiente manera:

RS.Close
RS = Nothing
Conn.Close
Conn = Nothing

Asi que no se lo que me puede fallar.