求助 VB 调用水晶报表出错

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"
要终止程序,请单击"确定"
要调试程序,请单击取消

这是什么问题啊？？？ --------------------编程问答-------------------- 哪行出错？感觉是cr的问题

补充：VB ,  基础类