如何解决“对象打开时，不允许操作” 的错误？

Question

小弟碰到一个问题，不知哪位大侠可以解决，问题如下：
小弟使用VB6.0+SQLSERVER 2000编写一数据库应用程序，在写统计功能的时候碰到一个问题，frm show的时候采用的是vbmodal，统计过程中采用的是task.additem的办法往grid中加入数据，在加入的过程中，如果点击了右上角的×，下次再运行，系统就会报错如标题，请问该如何写才能不让在统计的过程中点击×，或者点击无效！？
谢了！

Answer 1

if rs.state = adStateOpen then rs.close
rs.open ...

Answer 2

同意楼上的，rs的状态没有关闭，你的recordset对象是全局对象吧？

Answer 3

故障分析可能原因有1、2
 1、只用了一个Recordset变量！用一个要记得用完及时关闭。
 2、Recordset打开后没有关闭，可考虑在
    Private sub Form_Unload()
    if Recordset变量.state=adstateopen then Recordset变量.close
    End Sub

Answer 4

建议声明换成这种形式：
dim rs as adodb.recordset
然后要用时再申请空间：
set rs=new adodb.recordset用完后立即
rs.close
set rs=nothing

Answer 5

yoki(小马哥) 同意！
你要是没关或没有清空的话，就一定会出现这样的情况！按上面的兄弟说的试试看

Answer 6

在打開數據記錄集時先設為nothing
dim rs as new adodb.recordset
set rs=nothing
rs.open "sqlstring",........這樣打開記錄集就不會有這樣的問題.

Answer 7

Dim frm as New frmAAAA
frm.Show vbmodal
set frm=Nothing