Error recordset

[movil]

El codigo que tengo es el siguiente:

Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
Set RS=Server.CreateObject("ADODB.Recordset")
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.