vb 怎么断开与ACCESS数据库的连接？

Question

vb 怎么断开与ACCESS数据库的连接？
我是如下连接数据库的，可是怎么断开连接呢？  Public adoCon As ADODB.Connection 
  Public adoRst As ADODB.Recordset 
  Public strsql As String 
  Public Sub main() 
  Set adoCon = New ADODB.Connection 
      adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/shiyan.mdb;Persist Security Info=False" 
  Set adoRst = New ADODB.Recordset 
  End Sub 
  Private Sub Form_Load() 
        ...... 
        Call main 
        Set adoRst = adoCon.Execute("select * from 同学录") 
        ...... 
  End Sub 

Answer 1

adoCon.Close
set adoCon=nothing

Answer 2

Private Sub Form_Unload(Cancel As Integer)
    adoCon.Close
    Set adoCon = Nothing
End Sub

Answer 3

adoCon.Close         '端口数据连接
set adoCon=nothing   '关闭数据集

Answer 4

adoCon.Close         '端口数据连接set adoCon=nothing   '关闭数据集

Answer 5

adoCon.Close是关闭连接
adoRst.Close是关闭记录集，也就是关闭那个RecordSet对象。一般情况下是adoRst.Close在前，adoCon.Close在后。