#import  "msado15.dll" rename("EOF", "adoEOF")
...
CoInitialize( 0 )
..
ADODB::_ConnectionPtr  cn;
	GUID myclsid;       
  CLSIDFromProgID(OLESTR("ADODB.Connection"),&myclsid);
  cn.CreateInstance(myclsid);
  ADODB::_RecordsetPtr   rr;  
CLSIDFromProgID(OLESTR("ADODB.Recordset"),&myclsid);
  rr.CreateInstance(myclsid);
cn->ConnectionTimeout= 10 ;
cn->CommandTimeout= 60 ;
cn->ConnectionString=text;//"driver={SQL Server};.."
HRESULT r=cn->Open(cn->ConnectionString,"", "",- 1 );
rr->Open("IF EXISTS (SELECT NAME FROM SYSOBJECTS       WHERE UPPER(NAME) = 'XPROP' AND TYPE = 'U') \
 select name from xprop else select top  0  '' from sysobjects ",(const class _variant_t )(IDispatch*)cn,adOpenUnspecified,adLockUnspecified,- 1 );
while (rr->adoEOF== 0 ){
	list->AddString(LPCTSTR(CString((((rr->GetFields ()))->GetItem((const class _variant_t )i)->Value).bstrVal)));
	rr->MoveNext();
};
cn->Close();