Filter between 2 dates in 1 column

See more:

Delphi

Hi this is my code and I don't know where is the problem so help me please to fix it thanks

What I have tried:

procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Close;
ADODataSet1.CommandText :='[Date]>='+quotedStr(DateToStr(Date1.date))+'and'+'[Date]<='+QuotedStr(DateToStr(Date2.Date));
ADODataSet1.Active := True;
ADODataSet1.Requery();
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close;
end;
end.