I have a DTS package that transfers data from a SQL 2000 database to an Access 2000 database. I have created a process to loop through a table to pull the Access database location which is set to strFileLocation. The first time through the loop the connection is set properly but it never disconnects. How can I disconnect from the Access database?

Function Main()
Dim oPkg, oExecSQL, sSQLStatement
Dim conAccessDatabase

DTSGlobalVariables("strFileLocation").Value = "C:\Temp\" & DTSGlobalVariables("strFolderName").Value & "\Database.mdb"

' Get reference to the DataPump Task
Set oPkg = DTSGlobalVariables.Parent

Set conAccessDatabase = opkg.Connections("Customer")
conAccessDatabase.DataSource = DTSGlobalVariables("strFileLocation").Value

' Clean Up
Set oDataPump = Nothing
Set oPkg = Nothing
Set conAccessDatabase = Nothing

Main = DTSTaskExecResult_Success

End Function