Вот что я делаю:

    rset = con->OpenSchema(adSchemaTables);
    i = 0;
    rset->MoveFirst();
    while(!(rset->ADOEOF))
    {
        vVal = rset->Fields->GetItem("TABLE_NAME")->Value;
        strcpy(tables[i],(LPCTSTR)_bstr_t(vVal));
        i++;
        rset->MoveNext();
        
    };
    rset->Close();

Таблицы в RecordSet располагаются по алфавиту, а не так как в Excel. Народные умельцы,как отключить сортировку?