#import "C:\Program Files\Common Files\system\ado\msado15.dll" rename_namespace("ADOCG") rename("EOF", "EndOfFile")
using namespace ADOCG;
...
_ConnectionPtr m_pCn;//Указатели на интерфейсы; созданы при импорте...
_RecordsetPtr pRs;
....
 try
 {
   hr = m_pCn.CreateInstance(__uuidof(Connection)); //Создаем объект на основе 
                                     //регистрационных данных, созданных при импорте...
   if(FAILED(hr))_com_issue_error(hr);
   m_pCn->CursorLocation = adUseClient;//Устанавливаем некоторые свойства
   hr = m_pOCn->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);
 }
 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);
			    TRACE(sMsg);
				TRACE("\r\n");
                return;
    }
...
 try
{
  pRs.Release();
  hr = m_pCn->Close();
  if(FAILED(hr))_com_issue_error(hr);
  m_pCn.Release();//Вызываем "деструктор" для удаления объекта из памяти
 }
 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);
			    TRACE(sMsg);
				TRACE("\r\n");
                return;
    }
...

// testmyweb.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include "testmyweb.h"
//Импорт описания моего класса (=СОМ-объекта)
#import "d:\VFP8_Projects\WebServices\ws_server1.dll" rename_namespace ("Webs")
using namespace Webs;

//Эта вся лабуда создана мастером
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// The one and only application object

CWinApp theApp;

using namespace std;

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
	int nRetCode =  0 ;

	// initialize MFC and print and error on failure
	if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(),  0 ))
	{
		// TODO: change error code to suit your needs
		cerr << _T("Fatal Error: MFC initialization failed") << endl;
		nRetCode =  1 ;
	}
	else
	{
		// TODO: code your application's behavior here.
		CString strHello;
		strHello.LoadString(IDS_HELLO);
		cout << (LPCTSTR)strHello << endl;

                 //Это уже писал я
		HRESULT hr;
		Iws_mes_serverPtr Server;
		CoInitialize(NULL);
		try{
                 //WS_MES_SERVER - имя моего класса
		hr=Server.CreateInstance(__uuidof(WS_MES_SERVER));
		if(FAILED(hr)) _com_issue_error(hr);
                 //test - метод моего класса, он делает всю работу по выборке 
                 //         информации
                 strHello=(LPCSTR)Server->test(_bstr_t("2128105")); 
		strHello.AnsiToOem();
		cout << (LPCTSTR)strHello << endl;
		Server.Release();
		}
		catch(_com_error &e)
		{
			AfxMessageBox((LPCSTR)e.ErrorMessage(),MB_OK, 0 );
		}
                CoUninitialize();
	}
	return nRetCode;
}