ADO ACCESS 获取表名

BOOL GetAllTables(LPCTSTR databasefile,CStringArray & dbtables)
    {
       //#import "msado15.dll" no_namespace rename("EOF", "adoEOF")   //拷贝 msado15.dll 到工程目录
       _ConnectionPtr m_pConnection;    
        _RecordsetPtr m_pRecordset;    
        HRESULT hr;    
        try        
        { 
            CoInitialize(NULL);
            hr = m_pConnection.CreateInstance(__uuidof(Connection));
            hr =m_pRecordset.CreateInstance(__uuidof(Recordset));
           
            if(SUCCEEDED(hr))            
            {  
                CString strconnection;            
                strconnection.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s",databasefile);            
                hr = m_pConnection->Open((_bstr_t)strconnection,"","",adModeUnknown);            
                m_pRecordset = m_pConnection->OpenSchema(adSchemaTables);        &nb