Запрос на выборку из трёх связанных таблиц

void __fastcall TForm2::Button1Click(TObject *Sender)
{
DataSource1->DataSet = ADOQuery1;
ADOQuery1->SQL->Clear();
//MessageDlg
//Edit9->Text=MD5(Form2->Edit1->Text);
//Edit9->Text=Form2->Edit1->Text;
ADOQuery1->SQL->Add("SELECT * FROM [Учётная запись] where [Логин] = '"+(Form1->Edit1->Text)+"' and [Пароль] = '"+(Form1->Edit2->Text)+"' and [Роль] = 'Ученик';");
ADOQuery1->ExecSQL();
ADOQuery1->Open();
if(ADOQuery1->FieldValues ["Логин"].IsNull()==true)
  {ShowMessage ("Нет пользователя");Ii=0;}
else
{
ShowMessage ("Есть пользователь");
Ii=StrToInt(ADOQuery1->FieldValues ["id_записи"]);
DataSource1->DataSet = ADOQuery1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT * FROM [Студенты] WHERE [Номер зачётки] = "+IntToStr(Ii)+";");
ADOQuery1->ExecSQL();
ADOQuery1->Open();
DataSource2->DataSet = ADOQuery2;
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("SELECT [id_предмета],[Наименование],[Количество часов] FROM [Предметы],[Журнал занятий] WHERE [Номер зачётки] = "+IntToStr(Ii)+";");
ADOQuery2->ExecSQL();
ADOQuery2->Open();
Form2->ShowModal();
  }
}