#import "C:\Program Files\Common Files\system\ado\msado15.dll" rename_namespace("ADOCG") rename("EOF", "EndOfFile")
using namespace ADOCG;
...
	// TODO: add reinitialization code here
	// (SDI documents will reuse this document)
        HRESULT hr = S_OK;
CString strSQL = "Select fam from <filename> where tel=\""+CString("<telnumber>")+"\"";
       _ConnectionPtr m_pOraCn;
        _RecordsetPtr pRs;
		
    CString strConn = "Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=d:\\temp\\demo;";
	strConn += "SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;";
		strConn += "Null=Yes;Deleted=No;";
		TRACE("%s\n",strConn);

        try
        {
                hr = m_pOraCn.CreateInstance(__uuidof(Connection));
                if(FAILED(hr))_com_issue_error(hr);
                m_pOraCn->CursorLocation = adUseClient;
                hr = m_pOraCn->Open(_bstr_t((LPCTSTR)strConn),_bstr_t(L""),_bstr_t(L""),adConnectUnspecified);
                if(FAILED(hr))_com_issue_error(hr);
                hr = pRs.CreateInstance(__uuidof(Recordset));
                if(FAILED(hr))_com_issue_error(hr);
                hr = pRs->Open(_bstr_t((LPCTSTR)strSQL),m_pOraCn.GetInterfacePtr(),
				adOpenStatic,adLockReadOnly,adCmdText);
                if(FAILED(hr))_com_issue_error(hr);
                if(pRs->RecordCount> 0 )
				{
					_bstr_t rez=pRs->Fields->GetItem("FAM")->Value;
					CString Message;
					Message=(char *)rez;
					Message.OemToAnsi();
					AfxMessageBox(Message,MB_OK, 0 );
				}
				else
					AfxMessageBox("Select is not sucsessfull!!!",MB_OK, 0 );
			hr = pRs->Close();
			if(FAILED(hr))_com_issue_error(hr);
        }
    catch(const _com_error& e)
    {
                CString sMsg;
                sMsg.Format("Error: %s",e.ErrorMessage());
                if(e.ErrorInfo())
                        sMsg += "; Source: " + CString((LPCTSTR)e.Source()) + "; Description: " + CString((LPCTSTR)e.Description());
                AfxMessageBox(sMsg);
                return FALSE;
    }
    catch(...)
    {
                AfxMessageBox("<Unknown error>");
                return FALSE;
    }

....

 pRs.Release();
 m_pOraCn.Release();