急，VB调用水晶报表 老提示 内存错误

[nicho123456]

Set m_report = m_application.OpenReport(App.Path & "\mrpreport.rpt", 1)
m_report.Database.SetDataSource rstprod
m_report.ReadRecords

frmreport.CRViewer.ReportSource = m_report
frmreport.CRViewer.Visible = True
frmreport.CRViewer.Zoom 1
Screen.MousePointer = vbDefault
frmreport.CRViewer.ViewReport
frmreport.Show 1
Set mainRS = Nothing
Exit Sub

这样调用 运行的时候rstprod里也有值, 一运行就提示“ 应用程序出错，0x07694842"指令引用的"0x0000004"内存，该内存不能为"read"
要终止程序,请单击"确定"
要调试程序,请单击取消

这是什么问题啊？？？

[xxxuan]

重装系统，有病毒

[ucandoit1010]

是否報表裡有設定參數欄位，程式碼沒有賦值！