Question

vb6.0对象关闭时，不允许操作的错误如何解决。跪求答案

我的代码如下
Dim cnn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim str2 As String

Set cnn = New ADODB.Connection

Set rs = New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\程序数据库.mdb;Persist Security Info=False"

'Set rs = cnn.Execute("delete from daxi ")

str2 = MsgBox("是否删除当前记录?", vbOKOnly + vbExclamation, "提示")

If str2 = vbOK Then

rs.Delete "井号" = Text1.Text

MsgBox ("删除成功")

End If
代码是用来删除数据库中的一条井号字段的数据，我怎么调试都是有问题。出现的错误是对象关闭时，不允许操作。我是VB6.0的菜鸟，一切都是自学。现在急需一名高手替我答疑解惑，谁要是能帮助我解决一些问题，本人可以把分全部送上。可以的高手请留下工作用的QQ，多谢了。这个代码也请为我详细解答下吧，不胜感激。

Answer 1

你的代码中，rs对象还没打开，怎么进行Rs.Delete操作呢！
你可以将rs.Delete "井号" = Text1.Text改成：
Cnn.Execute("delete from daxi where 井号='" & text1.text & "'")
另外Rs也不用定义了，还有MsgBox返回的是整数，最好不要将str2定义成字符型。