我在一个窗体中对一个表做了,插入,删除,和更新.单独执行都不出错.为什么在执行完了插入或更新后在运行删除就会出错了.

错误是:对象关闭时,不允许操作.

应该怎么做?

这是添加的代码
Private Sub Command1_Click()
glyxx1.MoveFirst
Do While glyxx1.EOF = False
If glyxx1.Fields("管理员代码") = Text1(0).Text Then
MsgBox "代号重复！", 16, "操作提示"
Exit Sub
End If
glyxx1.MoveNext
Loop
For i = 0 To 4
If Text1(i).Text = "" Then
MsgBox "请输入内容！", 16, "操作提示"
Text1(i).SetFocus
Exit Sub
End If
Next
Set cs = New Connection
glyxx1.AddNew
glyxx1.Fields("管理员代码") = Text1(0).Text
glyxx1.Fields("管理员姓名") = Text1(1).Text
glyxx1.Fields("联系电话") = Text1(2).Text
glyxx1.Fields("上班时间") = Text1(3).Text
glyxx1.Fields("下班时间") = Text1(4).Text
glyxx1.Update
Call disp
MsgBox "成功！", 32, "操作提示"
Command2.Enabled = False
End Sub

显示的代码

Sub disp()
ListView1.ListItems.Clear
If glyxx1.RecordCount > 0 Then
glyxx1.MoveFirst

Do While glyxx1.EOF = False
ListView1.ListItems.Add , , glyxx1.Fields("管理员代码")
nl = ListView1.ListItems.Count
ListView1.ListItems(nl).SubItems(1) = glyxx1.Fields("管理员姓名")
ListView1.ListItems(nl).SubItems(2) = glyxx1.Fields("联系电话")
ListView1.ListItems(nl).SubItems(3) = glyxx1.Fields("上班时间")
ListView1.ListItems(nl).SubItems(4) = glyxx1.Fields("下班时间")
glyxx1.MoveNext
Loop
End If
End Sub

删除的代码

cs.Execute "delete * from 管理员信息表 where 管理员代码 = '" & Trim(Text1(0).Text) & "'"
MsgBox "信息以移除", 32, "操作提示"