Открытие таблицы в БД

[lady.ulumba]

При открытии таблицы все данные должны помещаться в ComboBox.
Данные из первой таблицы добавляются из второй нет.
1)

if(PageControl1->ActivePage==TabSheet1)
{
while (!DM->tb->Eof)
{ComboBox1->Items->Add(DM->tbMag->AsString);
 ComboBox2->Items->Add(DM->tbPokypka->AsString);
 ComboBox3->Items->Add(DM->tbKol->AsString);
 ComboBox4->Items->Add(DM->tbZena->AsString);
 DM->tb->Next(); }
 ComboBox1->ItemIndex=0;
 DM->tb->First();
 ComboBox1->Text=DM->tb->FieldByName("Mag")->AsString;
 ComboBox2->Text=DM->tb->FieldByName("Pokypka")->AsString;
 ComboBox3->Text=DM->tb->FieldByName("Kol")->AsString;
 ComboBox4->Text=DM->tb->FieldByName("Zena")->AsString; }

2)

if(PageControl1->ActivePage==TabSheet2)
{
DM->tb2->First();
while (!DM->tb2->Eof)
{
ComboBox1->Items->Add(DM->tb2Mag->AsString);
ComboBox2->Items->Add(DM->tb2Adress->AsString);
DM->tb2->Next();}
ComboBox1->ItemIndex=0;
DM->tb2->First();
ComboBox1->Text=DM->tb2->FieldByName("Mag")->AsString;
ComboBox2->Text=DM->tb2->FieldByName("Adress")->AsString;}

Как сделать так, чтобы данные со второй таблицы тоже загружались в ComboBox?