Verbindung zur Datenbank mit ADO

intery

Hi Leute habe da mal ne Frage die mich jetzt schon seit einigen Tagen beschäftigt.

So kann ich eine Verbindung herstellen...

HRESULT                hr = S_OK;
ADODB::_RecordsetPtr   Rs1 = NULL;

_bstr_t Connect( "DSN=SAMS_SVR;UID=admin;PWD=admin" );
_bstr_t Source ( "SELECT * FROM Position" );

hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
Rs1->Open( Source, Connect, 
           ADODB::adOpenForwardOnly, 
           ADODB::adLockReadOnly, -1 );
Rs1->Close();
Rs1 = NULL;

Aber wie kann Ich das Ohne DSN machen???
Denn so geht es nicht!(4. Zeile)

HRESULT                hr = S_OK;
ADODB::_RecordsetPtr   Rs1 = NULL;

_bstr_t Connect( "SERVER=componenmanager;DATABASE=windows2000;UID=sa" );
_bstr_t Source ( "SELECT * FROM Position" );

hr = Rs1.CreateInstance( __uuidof( ADODB::Recordset ) );
Rs1->Open( Source, Connect, 
           ADODB::adOpenForwardOnly, 
           ADODB::adLockReadOnly, -1 );
Rs1->Close();
Rs1 = NULL;

Ich hoffe Ihr könnt mir weiter helfen!
Vielen Dank schon mal im Voraus!