БД Access и Builder C++

[klepan]

Здравствуйте, подскажите пожалуйста почему не работает кнопка сортировки?
вот её код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString d;
switch (RadioGroup2->ItemIndex)
{ case 0: d = ""; break;
case 1: d = "DESC";
}
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add( "SELECT * FROM qdfMain ") ;
switch (RadioGroup1->ItemIndex)
{ case 0: d = "ORDER BY ID " + d; break;
case 1: d = "ORDER BY Sex " + d; break;
case 2: d = "ORDER BY BirthDate " +d;
}
ADOQuery1->SQL->Add(d);
ADOQuery1->Active= true;
}

вот полный проект: PatientsCount111.rar
Зарание спасибо!