连续打印两个报表，报错“该内存不能为 read”

这是我的那两段调用datareport 的代码
If MsgBox("是否要打印" & Text1(7).Text & "产品发货单", vbYesNo, "提醒") = vbYes Then
Dim SQL
Dim strQ
Dim rptA As New DataReport2
DataEnvironment1.Command3_分组 Text1(7)
DataReport2.Title = strQ
rptA.PrintReport
Set rptA = Nothing
DataEnvironment1.rsCommand3_分组.Close
End If
If MsgBox("是否要打印" & Text1(7).Text & "产品提货单", vbYesNo, "提醒") = vbYes Then
DataEnvironment1.Command4_分组 Text1(7)
DataReport3.Show 1
DataEnvironment1.rsCommand4_分组.Close
End If
如果两个单独打印的话没有问题
连续的话就出现报错
然后vb直接就要关掉了
如何解决呢？