Faltaba arriba y tambien abajo hace falta, entonces quedaria asi finalmente...
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
set RS = Nothing
Conn.Close
set Conn = Nothing
Buen trabajo !!
