为什么我的报表只能显示一页呀，该怎么解决呀！！急谢谢高手！

Question

为什么我的报表只能显示一页呀，该怎么解决呀！！
Private Sub printM_Click()
Dim mon As String
Dim yea As String
yea = Year(Date)
mon = Month(Date)
Dim str As String
Dim rs As New ADODB.Recordset
str = "select ucode as 票据号,uway as 车道,udate as 日期,unumber as 车牌号,utype as 车型,umoney as 金额,utext as 备注 from udoc where month(udate)='" & mon & "' and year(udate)='" & yea & "' and udepose='否'"
rs.Open str, cn, 1, 3
Set DR1.DataSource = rs
DR1.Show vbModal
End Sub

Answer 1

你查找到的应该只有一条记录do while not rs.eof
  .....
   rs.movenext
loop
set Set DR1.DataSource = rs