临安长途汽车站时刻表:求助大虾：关于图书管理系统数据环境对象的问题急！！

我初学vb，做图书管理系统时遇到这样一个问题（用的是sql server数据库），急待解决！
Private Sub Form_Activate()
DataGrid1.SetFocus
Call dispcom
End Sub

Private Sub Form_Load()
Dim sqltxt As String
sqltxt = "update 进货库 set 利润=销售金额-实购金额" '求销售利润
Set conn = New ADODB.Connection

conn.ConnectionString = "DSN=MESQL;UID =sa ;PWD=;"
conn.Open
conn.Execute sqltxt
conn.Close
First = True
condstr = ""
Text2(0).Text = Date
Text2(1).Text = Date
recs = Adodc1.Recordset.RecordCount
Call dispcom
End Sub

Private Sub Comm1_Click()
Dim sqltxt As String
sqltxt = "delete tmp进货库"
Set conn = New ADODB.Connection
conn.ConnectionString = "DSN=MESQL;UID =sa ;PWD=;"
conn.Open
conn.Execute sqltxt
If condstr = "" Then
sqltxt = "insert into tmp进货库 select * from 进货库"
Else
sqltxt = "insert into tmp进货库 select * from 进货库 where " + condstr
End If
conn.Execute sqltxt
conn.Close
If First = True Then DataEnvironment1.Command1
First = True
DataEnvironment1.rscommand1.Requery '刷新
DataReport1.Show vbModal
End Sub

执行到这句时出错
DataEnvironment1.rscommand1.Requery '刷新
总是提示说对象关闭，不能执行操作，我的command1
都是按要求设置的。请大虾帮忙，到底错出到哪了
谢谢你的回答。可是当我把conn.close这条语句删掉以后，仍然提示说对象关闭时不能操作。