两个command对应两个datareport,不能同时打开？请高手指点！

[Terrior007]

两个command对应两个datareport（同一个data Environment,不同的connection)

Private Sub command1_Click() '打印主页面

If deMaterial.Baogao1.State = adStateOpen Then
deMaterial.Baogao1.Close
End If
Dim par As String
par = txt_baogao_id.Text

deMaterial.cmdBaogao1 par
Load rptBaogao1
rptBaogao1.Show
End Sub


Private Sub command2_Click() '打印页面2

If deMaterial.Baogao2.State = adStateOpen Then
deMaterial.Baogao2.Close
End If
Dim par As String
par = txt_baogao_id.Text

deMaterial.cmdBaogao2 par
Load rptBaogao2
rptBaogao2.Show
End Sub


点击一个command后再点就出错：错误3704，对象关闭时，不能操作

请问怎么解决？谢谢了！

[易十五]

在报表show后
关闭data Environment