#import  <msado15.dll> rename("EOF", "adoEOF")

struct InitOle {
InitOle()  { ::CoInitialize(NULL); }
~InitOle() { ::CoUninitialize();   }
} _init_InitOle_;

void main( void )
{
    HRESULT                hr = S_OK;
    ADODB::_RecordsetPtr   Rs1 = NULL;

    hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
    Rs1->Open( L"SELECT * FROM Authors", 
               L"DSN=AdoDemo;UID=admin;PWD=;", 
               ADODB::adOpenForwardOnly, 
               ADODB::adLockReadOnly, -1 );
    Rs1->Close();
    Rs1 = NULL;
    ::MessageBox( NULL, "Success!", "", MB_OK );
}