ayuda error objeto cerrado

[marioipn_vz]

Gracias Rene por contestar. Con respecto a tus propuestas, el usuario y el psw no han cambiado. sin embargo no entiendo lo de aceptar "retrocesos". Qué es y cómo se hace?
Con respecto a tu segundo comentario, aquí está la función:

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

Gracias