Новый запрос после удаления записей из БД Access

AnsiString txt = "DELETE FROM Квартиры WHERE Код_подъезда = " + QPodezd->FieldByName("Код_подъезда")->AsString + ";";
QKvartiri->Close();
QKvartiri->SQL->Clear();
QKvartiri->SQL->Add(txt);
QKvartiri->ExecSQL();

QKvartiri->Close();
QKvartiri->SQL->Clear();
QKvartiri->SQL->Add("SELECT * FROM Квартиры;");
QKvartiri->ExecSQL();
QKvartiri->Open();
RzStatusPane4->Caption = " " + IntToStr(QKvartiri->RecordCount);

QKvartiri->Open();

QKvartiri->Close();
QKvartiri->SQL->Clear();
QKvartiri->SQL->Add("SELECT * FROM Квартиры;");
QKvartiri->Open();
RzStatusPane4->Caption = " " + IntToStr(QKvartiri->RecordCount);

    
QPodezd->DisableControls();
txt = "DELETE FROM Подъезды WHERE Код_подъезда = " + QPodezd->FieldByName("Код_подъезда")->AsString;
QPodezd->Close();
QPodezd->SQL->Clear();
QPodezd->SQL->Add(txt);
QPodezd->ExecSQL();
 
Обновляю данные из таблицы Подъезды (все нормально без ошибок)
QPodezd->Close();
QPodezd->SQL->Clear();
QPodezd->SQL->Add("SELECT * FROM Подъезды");
QPodezd->Open();
QPodezd->Refresh();
RzStatusPane2->Caption = " " + IntToStr(QPodezd->RecordCount);
QPodezd->EnableControls();
Далее нужно обновить данные из таблицы Квартиры
QKvartiri->DisableControls();
QKvartiri->Close();
QKvartiri->SQL->Clear();
QKvartiri->SQL->Add("SELECT * FROM Квартиры");
QKvartiri->Open(); - ВОТ ЗДЕСЬ ПРОИСХОДИТ ОШИБКА (Дескриптор строки указывал на удаленную строку)
QKvartiri->EnableControls();
RzStatusPane4->Caption = " " + IntToStr(QKvartiri->RecordCount);