3704 对象关闭时不允许操作 怎么办啊

Question

有没有VB高手在啊
我要帮助
我这个程序老是弹“3704 对象关闭时不允许操作”
错误的代码如下Private Sub cmdDelete_Click()
  If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then
       adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & Text1 & "'")
        MsgBox " 记录已删除！", , "系统提示"
        Adodc1.Refresh
     Adodc1.RecordSource = "select * from 车辆档案"
        Adodc1.Refresh
    End If
End Sub同时我也建立了模板代码如下Public adoCon As New ADODB.Connection
Public adors As New ADODB.Recordset
Public Sub main()
    Set adoCon = New ADODB.Connection
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\clgl.mdb;Persist Security Info=False"
End SubFunction valiText(keyIn As Integer, validateString As String, Editable As Boolean) As Integer
Dim valiDatelist As String
Dim keyOut As Integer
  If Editable = False Then
     valiDatelist = UCase(validateString) & Chr(8)
  Else
     valiDatelist = UCase(validateString)
  End If
  If InStr(1, valiDatelist, UCase(Chr(keyIn)), 1) > 0 Then
     keyOut = keyIn
  Else
     keyOut = 0
  Beep
  End If
  valiText = keyOut
End Function

Answer 1

Private Sub cmdDelete_Click() 
  If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then 
      adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'") 
        MsgBox " 记录已删除！", , "系统提示" 
    Adodc1.RecordSource = "select * from 车辆档案" 
    Adodc1.Refresh 
    End If 
End Sub 

Answer 2

不好意思楼主上面那条语句有错的，现改正如下.Private Sub cmdDelete_Click() 
  If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then 
Adodc1.ConnectionString =""‘连接数据库路径。
Adodc1.RecordSource = "delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'"
MsgBox " 记录已删除！", , "系统提示" 
Adodc1.Refresh 
End If 
End Sub 

Answer 3

Private Sub cmdDelete_Click() 
  If MsgBox("您确实要删除记录吗？", vbOKCancel, "系统提示") = vbOK Then 
      Set Adodc1.Object = adoCon
       Adodc1.RecordSource = "delete from 车辆档案 where 车牌号码='" & trim(Text1.text) & "'"
      MsgBox " 记录已删除！", , "系统提示" 
      Adodc1.RecordSource = "select * from 车辆档案" 
      Adodc1.Refresh   
  End If 
End Sub 

Answer 4

adoCon.Execute ("delete from 车辆档案 where 车牌号码='" & Text1 & "'") 
是这个地方报错
我VB很差但是要做毕业设计没办法啊