Error al leer recordset ayuda urgente please

[dadomo22]

Hola a todos. Esto liado ocn un tema que me tiene un poco loco. Tengo una pagina ASP que lo único que hace es conectar a SQL Server, lanzar una consulta y mostrar una ventana de alerta por pantalla en el caso de que el recordset devuelto contenga algún registro. EL código que uso es el siguiente:

<%
Option explicit
dim conexion
dim rs
dim SQL

set conexion = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Connection")

SQL = "SELECT * FROM ALARMAS"
conexion.Open "DRIVER={SQL Server};SERVER=SERVIDOR3;Database=Seguimiento;Trus ted_Connections=yes;"
rs.Open SQL, conexion, 1, 3
if rs.EOF = FALSE then
Response.write("<script>alert('Hay alertas activas')</script>")
end if
rs.close
conexion.close
%>

El problema es que en la línea que está en negrita me da el siguiente error:

ADODB.Connection (0x800A0E78)
La operación no está permitida si el objeto está cerrado.

Creo que lo tengo todo bien asi que no entiendo que puede pasar solicito ayuda urgente por favor gracias a todos y un saludo