#import "libid:EF53050B-882E-4776-B643-EDA472E8E3F2" no_namespace 

#define DBASE               "Driver={Microsoft dBASE Driver (*.dbf)}; DriverID=277; Dbq=%s;"
#define PDOX                "Driver={Microsoft Paradox Driver (*.db )}; DriverID=538; Fil=Paradox 5.X; DefaultDir=%s; Dbq=%s; CollatingSequence=ASCII;"

char con[MAX_PATH];
sprintf_s(con, MAX_PATH, PDOX, _path, _path);

_ConnectionPtr cn("ADODB.Connection");
cn->Open(con, "", "",  0 );   

_RecordsetPtr rs("ADODB.Recordset");
rs->PutRefActiveConnection(m_cn);
_variant_t v;
try
{
    rs->Open("SELECT * FROM [block.db]", vtMissing, adOpenKeyset, adLockOptimistic, adCmdText);     
// в таблице  6  полей,  4  и 6е - blob
    while (!rs->EOF)
    {               
        v = rs->Fields->Item[1l]->Value;
                v = rs->Fields->Item[2l]->Value;
                v = rs->Fields->Item[3l]->Value;
                v = rs->Fields->Item[4l]->Value;
                v = rs->Fields->Item[5l]->Value;
                v = rs->Fields->Item[6l]->Value;
            
        long s =  0 ;
        rs->Fields->get_Count(&s);

        }
    rs->Close();        
}
catch (_com_error& e)
{       
}

SELECT NomSkw FROM [block.db]

long s =  0 ;
rs->Fields->get_Count(&s);