Question

VB中ADODC控件连接数据库后怎么断开？？？

rt，编制完成软件以后发现安装后，每次关闭软件后在任务管理器的进程里都有该软件的运行，我觉得应该是在软件使用ADODC控件连接access数据后没有断开导致的，但是不知道怎么断开，求大神给贴个代码！！！！！！
以下是关闭按钮的代码
Private Sub Command4_Click()
Dim msgQk
msgQk = MsgBox("您确定想退出系统吗！", 32 + vbOKCancel, "重要提示")
If msgQk = 1 Then
‘删除数据库中的数据
Dim cnDel1 As New ADODB.Connection
Dim rDel1 As New ADODB.Recordset
Dim sqlDel11 As String
cnDel1.Open "DBQ=" & App.Path & "\新疆油田有杆抽油系统.mdb;Driver={Microsoft Access Driver (*.mdb)};"
sqlDel11 = "delete * from 主界面"
cnDel1.Execute sqlDel11
cnDel1.Close
Dim cnDel2 As New ADODB.Connection
Dim rDel2 As New ADODB.Recordset
Dim sqlDel12 As String
cnDel2.Open "DBQ=" & App.Path & "\新疆油田有杆抽油系统.mdb;Driver={Microsoft Access Driver (*.mdb)};"
sqlDel12 = "delete * from 评价系统"
cnDel2.Execute sqlDel12
cnDel2.Close
Dim cnDel3 As New ADODB.Connection
Dim rDel3 As New ADODB.Recordset
Dim sqlDel13 As String
cnDel3.Open "DBQ=" & App.Path & "\新疆油田有杆抽油系统.mdb;Driver={Microsoft Access Driver (*.mdb)};"
sqlDel13 = "delete * from 文本数据"
cnDel3.Execute sqlDel13
cnDel3.Close
'删除数据成功
Unload Me
Unload Form3
Unload Form4
Unload Form5
Unload Form6
Unload Form7
Unload Form8
Unload Form9
Unload Form10
Else
Exit Sub
End If
End Sub

Answer 1

在善后处理的最后加一行，只需要三个字母：End。

Answer 2

定义的两个 函数 都 要CLOSE

Answer 3

在删除数据后执行End试一试