delphi中使用rmreport控件打印dbgrid中的数据

delphi中使用rmreport控件打印dbgrid中的数据  打印结果是没有数据。我第一次用这个不知道哪里出了问题，我只是添加了个rmreport控件和 rmdbdateset控件，关联了AdoQuery控件，就执行打印了  没有数据啊，还要哪里设置一下吗 ? with ADOQuery1 do
  begin
     Close;
     sql.Text:='select * from b_income order by ID asc';
     Open;
  end;
  rmrprt1.LoadFromFile(extractFilePath(application.ExeName)+'res\rep\9006.rmf');
  rmrprt1.PrepareReport;
  rmrprt1.ShowReport;