Ayudita ASP 3 & DLL's

Wenas compis, vereis tengo un problemilla y no se de ande me viene, tengo por un lado una aplicación echa en ASP 3 y la engancho con unas DLL's que me he creado y que estan dentro del servidor. Tengo varias aplicaciones iguales y todas me funcionan menos la siguiente:

CODIGO ASP RESUMIDO

Dim rsSuscripcionesTipo

Set oSuscripciones = Server.CreateObject(\"Itaca.clsSuscripciones\")
Set rsSuscripcionesTipo = oSuscripciones.DevSuscripcionesTipo(Session(\"IDRevista\"),DSError)

<select name=\"fTipoSuscripcion\" size=\"1\">
<%while NOT rsSuscripcionesTipo.EOF %>
<option><%rsSuscripcionesTipo(\"TipoSuscripcion\")%></option>
<%rsSuscripcionesTipo.MoveNext
wend%>
</select>

CODIGO DE LA .DLL que me he creado y que engancho desde el asp

Public Function DevSuscripcionesTipo(ByVal IDRevista As String, _
    DSError As Variant) As ADODB.Recordset
    
    Dim objContext As Object
    Dim rsDatos As ADODB.Recordset
    Dim sSQL As String

    DSError = \"\"
    On Error GoTo Errores:
    
    Set objContext = GetObjectContext()

    sSQL = \"SELECT * \"
    sSQL = sSQL & \"FROM Suscripciones \"
    sSQL = sSQL & \"WHERE Suscripciones.IDRevista = '\" & IDRevista & \"' \"
        
    sSQL = sSQL & \" ORDER BY Suscripciones.IDRevista \"
    
    Set rsDatos = New ADODB.Recordset
    rsDatos.Open sSQL, cnxItaca, adOpenForwardOnly, adLockReadOnly
    Set DevSuscripcionesTipo = rsDatos
    
    If Not objContext Is Nothing Then objContext.SetComplete

Salida:
    If Not objContext Is Nothing Then Set objContext = Nothing
    If Not rsDatos Is Nothing Then Set rsDatos = Nothing
    Exit Function

Errores:
    DSError = \"ERROR \" & Err.Number & \". \" & _
        Err.Description & \" (Método clsSuscripciones.DevSuscripciones)\"
    
    If Not objContext Is Nothing Then objContext.SetAbort
    Resume Salida

End Function

Y EL ERROR QUE ME DA ES QUE HAY UN NUMERO DE ARGUMENTOS ERRONEOS, PERO NO DEBERIA DARMELO O YO POR LO MENOS NO SE PQ ME SALTA LA EXCEPCIÓN</B>

Asias chik@s