Problema con llamada a Sp

[unseen]

Hola Amigos del Foro...soy nuevo, la verdad es que hace tiempo que frecuento el foro y se lo buenos que son con los recién llegados

Bueno, sin mas preámbulo, estaría muy agradecido si me dan una ayudita del porque me arroja el siguiente error, al llamar mi programa vs desde una componente.

me explico? bueno, mi programa en vs, esta hecho para ser una librería la cual publicare mediante COM+, esta com+ la utiliza una pag. ASP. y esta pag. en ASP me retorna el siguiente mensaje.


"ADODB.Connection error '800a0e78'

La operación no está permitida si el objeto está cerrado. "

Leí sobre el error, y tiene que ver con un juego de abrir/cerrar la conexión, a continuación les dejo el código VS en cuestión.

Código:

Public Function CargarPwd(LoginEmpresa As String, LoginUsuario As String, Password As String) As Boolean
On Error GoTo Error_CargarPwd
    CodEmp As Long
    Dim CodBco As Long
    
    CargarPwd = False
    
    Conn.Open Conexion ' Conexion es mi connString (está validado el formato)

    Set proc = New ADODB.Command
    Set proc.ActiveConnection = Conn
    proc.CommandType = adCmdStoredProc
    proc.CommandText = "extranet.pkg_Componentes.sp_Gente_Usu_CargarPwd"

    proc.Parameters.Append proc.CreateParameter("p_LoginEmpresa", adVarChar, adParamInput, 200, LoginEmpresa)
    proc.Parameters.Append proc.CreateParameter("p_LoginUsuario", adVarChar, adParamInput, 200, LoginUsuario)
    proc.Parameters.Append proc.CreateParameter("p_password", adVarChar, adParamInput, 200, Password)

    Dim Rs As New ADODB.Recordset
    Set Rs = proc.Execute

    Do While Not Rs.EOF
        mCodigo = Rs("usicodigo")
        mLoginEmpresa = Rs("usiloginempresa")
        mLoginUsuario = Rs("usiloginusuario")
        mPassword = Rs("usipassword")
        mUltPass = Rs("usiultpass")
        mNombreUsuario = Rs("usinomusuario")
        mTipo = Rs("usitipo")
        mCargo = Rs("usicargo")
        mNumLocal = Rs("usilocal")
        mCodVenta = Rs("usicodventa")
        mCheques = Rs("usicheques")
        mCodigoEmpresa = Rs("usicodempresa")
        mEmail = Rs("usiemail")
        CodEmp = Rs("usicodempresa")
        CodBco = Rs("usicodbanco")
        CargarPwd = True
        Exit Do
    Loop
    
    If CargarPwd Then
        If CodEmp <> 0 Then
            Empresa.Conectar Conexion
            If Not Empresa.Cargar(CodEmp) Or Not CargarPwd Then
                CargarPwd = False
            End If
        End If
        If CodBco <> 0 Then
            Banco.Conectar Conexion
            If Not Banco.Cargar(CodBco) Or Not CargarPwd Then
                CargarPwd = False
            End If
        End If
        If CargarPwd Then
            If Not RegistraConeccion(mCodigo) Then
                CargarPwd = False
            End If
        End If
    End If

    Conn.Close
    Exit Function

Error_CargarPwd:
    Conn.Close
    CargarPwd = False
    Exit Function
End Function

Bueno amigos, espero me puedas ayudar, estaré muy agradecido de ello.

Saludos.

[unseen]

alguien que me ayude por favor :(

Slds.