Работа с различными таблицами на одной форме поочередно

[Anubys]

Есть 2 таблицы БД, задача состоит в том чтобы работать со всеми таблицами используя только 1 компонент Table.
Поместил эти 2 компонента в дата модуль, и для удобного пользования программой сделал 2 вкладки воспользовавшись PageControl-ом.Пры программной изменении таблиц в дата модули выскакивает такое сообщение:

код программы

void __fastcall TForm1::TabSheet2Show(TObject *Sender)
{
     DBGrid2->DataSource->DataSet->Active = false;
     DataModule2->Table1->TableName = "zam.DB";
     DBGrid2->DataSource->DataSet->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::TabSheet1Hide(TObject *Sender)
{
     DataModule2->Table1->Active = false;
     DataModule2->Table1->Close();
}

Буду благодарен за помощь