Работа с базой из Com через Adodb

STDMETHODIMP TCKWorkImpl::Get24OIKdata(OIKCategory eCat, int iParam,
                                       DATE dDate, LPSAFEARRAY* pptVArray)
{
*pptVArray = NULL;
long rgIndices = 0;
SAFEARRAYBOUND sab[1];
HRESULT hr;
sab[0].cElements = 24;
sab[0].lLbound = 0;
try
    {
    spAdo->ProcedureName = "Get24hDataByOiId2D;1";
    spAdo->Parameters->Refresh();
    spAdo->Parameters->Items[1]->Value = eCat;
    spAdo->Parameters->Items[2]->Value = iParam;
    spAdo->Parameters->Items[3]->Value = 0;
    spAdo->Parameters->Items[301]->Value = 1;
    spAdo->Parameters->Items[302]->Value = 60;
    spAdo->Parameters->Items[303]->Value = Date().Val-(dDate ? dDate : dDefault);
    spAdo->Parameters->Items[304]->Value = 24;
    spAdo->Parameters->Items[305]->Value = 0;
    spAdo->Open();
    *pptVArray = SafeArrayCreate(VT_VARIANT, 1, sab);
    if(!(*pptVArray ))return E_OUTOFMEMORY;
    while(!spAdo->Eof)
        {
        hr = SafeArrayPutElement(*pptVArray, &rgIndices, &(spAdo->Fields->Fields[1]->AsVariant));
        spAdo->Next();
        rgIndices++;
        }
    spAdo->Close();
    }
catch(Exception &e)
    {
    return Error(e.Message.c_str(), IID_ICKWork);
    }
return S_OK;
}