' Выполняет хранимую процедуру и заносит значения выходных параметров в массив типа Variant(если он не NULL, т.е. если выходные параметры нужны)
' Рекомендована к использованию только если требуются выходные параметры, иначе ExecuteCommand
'   [in] oCn             - ADO Connection
'   [in] sProcedure      - Имя хранимой процедуры
'   [in] aParamsIn()     - Массив входных параметров процедуры
'   [out] aParamsOut()   - Возвращаемый массив выходных параметров
'   [out] sErr           - Сообщение об ошибке
Public Sub ExecuteProcedure(oCn As ADODB.Connection, sProcedure As String, aParamsIn() As String, aParamsOut() As String, sErr As String)
    Dim oCmd As ADODB.Command
    Dim oRs As ADODB.Recordset
    Dim oParams As ADODB.Parameters

    Dim nIn As Integer
    Dim nOut As Integer
    Dim i As Integer
    On Error GoTo OnError

    Set oCmd = New ADODB.Command
    With oCmd
        Set .ActiveConnection = oCn
        .CommandType = adCmdStoredProc
        .CommandText = sProcedure
        .CommandTimeout = CMDTimeout
        Set oParams = .Parameters

    End With

    If Not IsNull(aParamsIn) Then
        nIn = UBound(aParamsIn,  1 )
        For i =  0  To nIn
            oParams.Item(CInt(aParamsIn(i, IDX_PARAM))) = aParamsIn(i, IDX_VALUE)
        Next
    End If

    oCmd.Execute , , True

    If Not IsNull(aParamsOut) Then
        nOut = UBound(aParamsOut,  1 )
        For i =  0  To nOut
            'Собственно вот тут и валится

            aParamsOut(i, IDX_VALUE) = oParams.Item(CInt(aParamsOut(i, IDX_PARAM)))
        Next
    End If

    sErr = ""
    Exit Sub
OnError:
    sErr = Err.Number & " " & Err.Source & " " & Err.Description
    Exit Sub
End Sub

If Not IsNull(aParamsIn) Then
        nIn = UBound(aParamsIn,  1 )
        For i =  0  To nIn
'            вот тут
            oParams.Item(CInt(aParamsIn(i, IDX_PARAM))) = aParamsIn(i, IDX_VALUE)
        Next
    End If