这很简单,看我的程序:
DRPtmp.Sections(5).Controls("labdate").Caption = "从" & PsMxkBegin & "到" & PsMxkEnd
DRPtmp.Sections(5).Controls("labtotal").Caption = "总额:" & Trim(Str(Total))   '以上两行都是加标题
DRPtmp.WindowState = 2
If DE.CNtmp.State <> adStateClosed Then
  DE.CNtmp.Close
End If
DE.CNtmp.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & SystemData & "temp.mdb"
DE.CNtmp.Open
DE.Commands("zs").CommandType = adCmdText
DE.Commands("zs").CommandText = "select * from TmpQs where 年份=#" & 年份 & "#"  ‘注意这里哟、注意这里哟。
If DE.rsZS.State <> adStateClosed Then
  DE.rsZS.Close
End If
DE.zs   ’这点也很重要
DRPtmp.Show
其中,DRPTMP为报表设计器名称,给分吧!:)