菜鸟求救,打印时提示对象关闭时不允许操作!!

Question

Private Sub Command1_Click()
Dim sqltxt As String
sqltxt = "delete temppr"
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "DSN=ylgl;UID=sa;PWD=;"
conn.Open
conn.Execute sqltxt
If condstr = "" Then
sqltxt = "insert into temppr select * from product where 报告编号=1"
Else
sqltxt = "insert into temppr select * from product where 报告编号=1 " + condstr
End If
conn.Execute sqltxt
conn.Close
If First = True Then DataEnvironment1.Command1
First = flase
DataEnvironment1.rsCommand1.Requery
DataReport1.Show vbModal
End Sub
报错是报在"DataEnvironment1.rsCommand1.Requery"这句上