Фильтр между 2 датами в 1 столбце

---

Привет это мой код и я не знаю где проблема так что помогите мне пожалуйста исправить это спасибо

Что я уже пробовал:

процедура TForm1.Button1Click(отправитель: TObject);
начать
ADODataSet1.Close;
ADODataSet1.Свойства commandtext :='[дата] и GT;='+quotedStr(DateToStr(Дата1.дата))+'а'+'[дата]&ЛТ;='+QuotedStr(DateToStr(Дата2.Дата));
ADODataSet1.Активный := True;
ADODataSet1.Обновление();
конец;

процедура TForm1.Button2Click(отправитель: TObject);
начать
ADODataSet1.Close;
конец;
конец.

---