运行时提示‘对象打开时，不允许操作’

运行时，第一次按COMMAND1，DATAGRID出来列表，可第二次按COMMAND1，出来‘对象打开时，不允许操作’的错误提示。

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click(）

rs.CursorLocation = adUseClient
rs.Open "select * from stu where name like  '%" & Text1.Text & "%' ", conn, adOpenKeyset, adLockOptimistic

DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub


Private Sub Form_Load()

Dim connstr As String
connstr = "Provider = 'Microsoft.Jet.OLEDB.4.0';Data Source=F:\练习\test.mdb"
conn.Open connstr

End Sub
--------------------编程问答-------------------- 我知道了，谢谢。：） --------------------编程问答-------------------- DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
rs.close --------------------编程问答-------------------- if rs.state<>adstateclosed then rs.close
rs.Open "select * from stu where name like  '%" & Text1.Text & "%' ", conn, adOpenKeyset, adLockOptimistic
--------------------编程问答-------------------- 反复使用对象时 要注意对象的状态
最好是每一次使用完对象就将其关闭 这样可以避免产生‘对象打开时，不允许操作’此类的错误 --------------------编程问答-------------------- 用完之后请记得关闭哟！ --------------------编程问答-------------------- 每次打开时,先判断其是否打开,如果打开则先关闭之 --------------------编程问答-------------------- 反复使用对象时 要注意对象的状态
最好是每一次使用完对象就将其关闭 这样可以避免产生‘对象打开时，不允许操作’此类的错误
-------------------
不尽然吧.如果是窗体级对象,不能随时关闭的,只能是每次使用时,瞬间关闭，然后再打开 --------------------编程问答-------------------- 重新建立个对象名了

补充：VB ,  基础类