[VBA程序]：恳请斑竹帮忙

桃花小妖

我想在程序里用ado多次调用数据库里的表，第一次调用我会，可以后的调用我就不会了，请教斑竹帮助。

雪山飞狐(lzh)

第一次调用你是怎么做的？

桃花小妖

是这样连的在明经书上的例子
Private Sub UserForm_Initialize()

  strPath = "D:\sheji\" & "\"    '连接数据库
    Set adoCon = New Connection
    adoCon.CursorLocation = adUseClient
    adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        strPath & "shujuku.mdb;"
   
    '打开记录集
    Set adoRs1 = New Recordset
    adoRs1.Open "gxgtweijia", adoCon, adOpenDynamic, adLockOptimistic
   
   
    RefreshList1             '将型号添加到列表框中
   
     If adoRs1.RecordCount > 0 Then
        adoRs1.MoveLast
        adoRs1.MoveFirst
        
        ExchangeData1 False
    End If
End Sub


接着这段开始第二次调用，需要做什么改动，数据库怎么关闭在哪关闭？恳请斑竹帮忙。