wstring wMdbConnStr = L"Provider=Microsoft.Jet.OLEDB.4.0;Mode=Read;Password=\"\";Persist Security Info=True;Data Source=c:\\aa.mdb";

    _ConnectionPtr  pConnection =  0 ;
    pConnection.CreateInstance(__uuidof(Connection));
    pConnection->Open ( wzconn_str, "", "", adConnectUnspecified );

    const wchar_t wzLstSQL[] = L" SELECT name FROM msysobjects WHERE type=1 ";
    _RecordsetPtr  pRS =  0 ;

    pRS.CreateInstance( __uuidof(Recordset));
    pRS->Open( wzLstSQL,  _variant_t((IDispatch *) mdbpConn, true), adOpenForwardOnly, adLockReadOnly, adCmdText );