关于打印是报错error 9 subscript out of range,该如何解决

关于打印是报错error 9 subscript out of range
请高手看看 那有问题啊 代码如下：
Private Function rep()
 Dim StrSql As String
 StrSql = "select * from purapp where jlrq >= '" & Me.date1.Value & "' and jlrq <='" & Me.date2.Value & "'"
 Unload frmReport
 MsgBox "===="
 Call frmReport.OpenReport(StrSql, App.Path & "\" & sysInfo.strRptPath & Me.Tag & ".rpt", Me.Caption)
 MsgBox "------->"
End Function



[解决办法]
看不到图，估计是水晶报表了的问题。