为什么我的报表在第一次执行时无记录？(50分)

[blue][/blue]各位高手，请问，我在做日报表时，出现了在第一次点击时无内容显示，再点时才会有记录，这是为什么呢？
程序原码如下：
procedure TbbglForm.rbbSPBClick(Sender: TObject);
begin
date1:=strtodatetime(datetostr(dd.Date)+' 00:00:00');
date2:=strtodatetime(datetostr(dd.Date)+' 23:59:59');
with datamodule2.nyrbbQuerydo
begin
close;
sql.Clear;
sql.Add('select grq_bh,grq_xm ,grq_xb,grq_mz,grq_sfzh,');
sql.Add('rsdj_ywh,rsdj_sydw ,rsdj_rssj,rsdj_gyjsbh,');
sql.Add('rsxz_mc,ajlx_ajlxmc,sshj_mc from grqkb ,rsdjb,sshjb,ajlxb,rsxzb');
sql.Add('where grq_bh=rsdj_bh and rsxz_bh=rsdj_rsxz and jlx=ajlx_ajlxbh and sshj_bh=rsdj_sshjbh');
sql.Add('and rsdj_rssj between :date1 and :date2');
prepare;
params[0].AsDateTime:=date1;
params[1].AsDateTime:=date2;
open;
end;
if datamodule2.nyrbbQuery.RecordCount<>0 then
begin
nyrbbform.QuickRep1.Preview;
nyrbbform.QRLabel1.Caption:='日报表';
end
else
application.messageBox('今日没有入所人员！' , '提示！',mb_ok);
end;

if datamodule2.nyrbbQuery.RecordCount<>0 then
此句之　前　加上一句：datamodule2.nyrbbQuery.fetchall;
：Ｐ

可是，还是不行啊，是不是数据库中记录有问题？

接受答案了.