ayuda error objeto cerrado

[Shiryu_Libra]

bueno en ese sentido, tienes una variable que se llama Conn, pero si te has fijado en tu codigo del primer post, no haces referencia a esa variable que abriria la conexion, es por esto que te da este error de que necesitas el objeto

y aunque gsCnn = application("strDSN"), solo le asignas la cadena de conexion

ahora, deberia ser de esta manera

Conn.open gsCnn

y tu funcion

Function ConsultarSQL(sqlStr)
Set rs = Server.CreateObject("ADODB.recordset")
on Error resume next
rs.Open sqlStr, Conn
CheckForErrors Rs.ActiveConnection,sqlStr
on Error goto 0
set ConsultarSQL = Rs
End Function

no crees???