Компиляция программы и файл Access

 ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="путь к базе";Persist Security Info=True";

void __fastcall TForm4::FormPaint(TObject *Sender)
{
  //Создание списка администраторов
   
    ComboBox1->Items->Clear();
Form2->ADOQuery2->SQL->Clear();
Form2->ADOQuery2->SQL->Add("SELECT * FROM Работники WHERE Должность='Администратор';");
for(Form2->ADOQuery2->Open(); !Form2->ADOQuery2->Eof; Form2->ADOQuery2->Next())
   {
     String admin_n=Form2->ADOQuery2->FieldByName("Имя")->AsString;
     String admin_f=Form2->ADOQuery2->FieldByName("Фамилия")->AsString;
     String admin;
     strcat( strcat( strcpy( admin.c_str(), admin_f.c_str()), " " ), admin_n.c_str() );
     ComboBox1->Items->Add(admin.c_str());
   }
Form2->ADOQuery2->SQL->Clear();    
 
//Создание списка поваров
ComboBox2->Items->Clear();
Form2->ADOQuery2->SQL->Clear();
Form2->ADOQuery2->SQL->Add("SELECT * FROM Работники WHERE Должность='Повар';");
for(Form2->ADOQuery2->Open(); !Form2->ADOQuery2->Eof; Form2->ADOQuery2->Next())
   {
     String povar_n=Form2->ADOQuery2->FieldByName("Имя")->AsString;
     String povar_f=Form2->ADOQuery2->FieldByName("Фамилия")->AsString;
     String povar;
     strcat( strcat( strcpy( povar.c_str(), povar_f.c_str()), " " ), povar_n.c_str() );
     ComboBox2->Items->Add(povar.c_str());
   }
Form2->ADOQuery2->SQL->Clear();
}

Form2->ADOQuery2->SQL->Add("SELECT * FROM Работники WHERE Должность='Администратор';");
Form2->ADOQuery2->Open(); 
while(!Form2->ADOQuery2->Eof)
do
{
заполнение;
 Form2->ADOQuery2->Next();
}

 ComboBox1->Items->Clear();
 Form2->ADOQuery2->Close();
 Form2->ADOQuery2->SQL->Clear();
 Form2->ADOQuery2->SQL->Add("SELECT * FROM Работники WHERE Должность='Администратор'");
 Form2->ADOQuery2->Open(); 
 Form2->ADOQuery2->First();
 while(!Form2->ADOQuery2->Eof)
 {
 ComboBox1->Items->Add(ADOQuery2->FieldByName("имя_поля")->AsString);
 Form2->ADOQuery2->Next();
 }