vb 出现的对象关闭时，不允许操作问题

在进行这个操作之后 就出现了对象关闭时，不允许操作问题，但是实际上数据库里的要删除的信息删除了。。为什么会出现这个对话框望高手帮帮忙，解决一下。。小弟在这谢谢了。。
Private Sub Command4_Click()
Dim strBookID As String
Dim intResponse As Integer
DataGrid1.Col = 0
strBookID = DataGrid1.Text
intResponse = MsgBox("是否真的要删除编号为" + strBookID + "的书籍信息?", vbOKCancel, "提示")
If intResponse = vbOK Then
        strSQL = "delete from bookinfotable where BookNumber ='" & strBookID & "'"Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=library;Data Source=LIBO-04BFF8F26F;Persist Security Info=False"
Adodc1.CursorLocation = adUseClient
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
     Call Form_Load
     MsgBox "删除完毕!", vbOKOnly, "提示"
End If
End Sub