Объединение таблиц с условием даты SQL

 ADOQuery1->Active=false;
 ADOQuery1->SQL->Text="Select *from Appointment where [The date]= :thedate";
 ADOQuery1->Parameters->ParamByName("thedate")->Value = StrToDate(ESearch->Text);
 ADOQuery1->Active=true;

 ADOQuery1->Active=false;
 ADOQuery1->SQL->Text="Select Appointment.ID,Clients.Surname,Services.[The Service],Staff.Surname From Appointment"
 "inner join Staff on Appointment.Staff=ID"
 "inner join Clients on Appointment.Client=ID"
 "inner join Services on Appointment.Service=ID"
 "where [the date]=:thedate";
 ADOQuery1->Parameters->ParamByName("thedate")->Value=StrToDate(ESearch->Text);
 ADOQuery1->Active=true;

ADOQuery1->Active=false;
 ADOQuery1->SQL->Text= "SELECT Appointment.[The time], Clients.Surname, Services."
 "[The service], Staff.[Surname staff] FROM Staff INNER JOIN (Clients INNER JOIN"
 " (Services INNER JOIN (Clients INNER JOIN Appointment ON Clients.ID = Appointment."
 "Client) ON Services.ID = Appointment.Service) ON Staff.ID = Appointment.Staff"
  "WHERE (((Appointment.[The date])= :thedate))";
 ADOQuery1->Parameters->ParamByName("thedate")->Value = StrToDate(ESearch->Text);
 ADOQuery1->Active=true;

ADOQuery1->Active=false;
 ADOQuery1->SQL->Text= "SELECT Appointment.[The time], Clients.Surname, Services."
 "[The service], Staff.[Surname staff] FROM Staff INNER JOIN ON Staff.ID = Appointment.Staff"
 "INNER JOIN Clients ON Clients.ID = Appoinment.Client"
 "INNER JOIN Services ON Services.ID = Appointment.Service"
  "WHERE (((Appointment.[The date])= :thedate))";
 ADOQuery1->Parameters->ParamByName("thedate")->Value = StrToDate(ESearch->Text);
 ADOQuery1->Active=true;

  ADOQuery1->Close();
  ADOQuery1->SQL->Clear();
 ShowMessage(ADOQuery1->SQL->Text);
 ADOQuery1->SQL->Add("SELECT [Apps].[The time], Customers.Surname, Serv.[The service],"
 " Empl.[Surname stuff] FROM Serv INNER JOIN (Empl INNER JOIN (Customers INNER JOIN Apps ON [Apps]."
 "Client = Customers.ID) ON Empl.ID = [Apps].Staff) ON Serv.ID = [Apps]."
 "Service WHERE ((([Apps].[The date])= :thedate))");
 ADOQuery1->Parameters->ParamByName("thedate")->Value = StrToDate(ESearch->Text);
 ADOQuery1->Open();
}