hi!
Help me please!!!!!

my problem :

That is a function in a component MTS in WinNT Server

Error : 70 Permission Denied

code :

--------------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub collectParams(ByRef cmd As ADODB.Command, ByVal argparams As Variant)
    Dim params      As Variant
    Dim v           As Variant
    Dim iNumeroParametros  As Integer
    Dim l           As Integer
    Dim u           As Integer
    Dim o As Variant

    If Not IsArray(argparams) Then Exit Sub
    params = argparams
    For iNumeroParametros = LBound(params) To UBound(params)
        l = LBound(params(iNumeroParametros))
        u = UBound(params(iNumeroParametros))

        If u - l = 3 Then

            If VarType(params(iNumeroParametros)(3)) = vbString Then
                v = IIf(params(iNumeroParametros)(3) = "", Null, params(iNumeroParametros)(3))
            Else
                v = params(iNumeroParametros)(3)    ' Here the problem
            End If

            cmd.Parameters.Append cmd.CreateParameter(params(iNumeroParametros)(0), _
                                                      params(iNumeroParametros)(1), _
                                                      adParamInput, _
                                                      params(iNumeroParametros)(2), v)
        Else
            MsgBox NOMBRE_MODULO, "collectParams(...): Incorrecto # de Parametros"
        End If

    Next iNumeroParametros
End Sub
--------------------------------------------------------------------------------------------------------
Thank for your help

Gre{*filter*}s

Victor

http://support.microsoft.com/support/kb/articles/q252/7/11.asp

On the client side, since the server component calls back, try setting
Default Authentication Level in DcomCnfg to None.

Regards,
Nick

--------------------------------------
This posting is provided solely for use by users of
http://msdn.microsoft.com/newsgroups/. It is offered "AS IS" and with no
warranties. That means there is no warranty of merchantability or fitness
for a particular purpose, and no warranty of non-infringement.