No estoy muy seguro que esto funcione así:
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
Set RS=Server.CreateObject("ADODB.Recordset")
RS=Conn.Execute("SELECT nombre, clave FROM accesoadm")
Trata así:
Set RS=Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT nombre, clave FROM accesoadm", Conn, 3, 3
Salú!