delphi4arab منتديات دلفي للعرب

السلام عليكم 
ارجوا مساعدتي في تعديل هذا الكود 
انه لايشتغل وانا لم اعلم اين المشكل بالضبط وجزاكم الله خيرا

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.