Ошибка при вызове хп с параметрами. Помогите - VB

Формулировка задачи:

Доброго времени суток, уважаемые
Подскажите пожалуйста как можно избежать ошибки, которая возникает при назначении входных параметров для хранимой процедуры.

ExecuteProcedure(oCn  ADODB.Connection, sProcedure  , aParamsIn()  , aParamsOut()  , sErr  )
     oCmd  ADODB.Command
     oRs  ADODB.Recordset
     oParams  ADODB.Parameters

     nIn  
     nOut  
     i  
       OnError

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

      IsNull(aParamsIn) 
        nIn = UBound(aParamsIn, )
         i =   nIn
            oParams.Item(CInt(aParamsIn(i, IDX_PARAM))) = aParamsIn(i, IDX_VALUE)

    oCmd.Execute , , True

      IsNull(aParamsOut) 
        nOut = UBound(aParamsOut, )
         i =   nOut

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

    sErr = 
     
OnError:
    sErr = Err.Number &  & Err.Source &  & Err.Description

выдает ошибку: "-2147217900 Microsoft OLE DB Provider for SQL Server Ошибка синтаксиса или нарушение прав доступа"

Решение задачи: «Ошибка при вызове хп с параметрами. Помогите»

textual
                            Листинг программы 
                        

                            <font color="blue">If</font> <font color="blue">Not</font> IsNull(aParamsIn) <font color="blue">Then</font>
        nIn = UBound(aParamsIn, <font color="darkblue"><b>1</b></font>)
        <font color="blue">For</font> i = <font color="darkblue"><b>0</b></font> <font color="blue">To</font> nIn
<font color="00AA00">'            вот тут</font>
            oParams.Item(CInt(aParamsIn(i, IDX_PARAM))) = aParamsIn(i, IDX_VALUE)
        <font color="blue">Next</font>
    <font color="blue">End</font> <font color="blue">If</font>

                        