Hi,
I'm hoping that someone here can help me out . I am trying to create a new table in a database that is a copy of a table in a password protected database. My code is as follows.

Private Sub funCopyDB()
Dim connSource As New ADODB.Connection
Dim connDest As New ADODB.Connection
Dim strSQL1 As String
strSQL1 = "select * into DomCurrentLoc from " + strAccessFileLocation + ".[DomCurrentLoc]"
strSQL2 = "select * into FTZCurrentLoc from " + strAccessFileLocation + ".[FTZCurrentLoc]"
connDest.Provider = strProvider
connSource.Provider = strProvider
connDest.Properties("Data Source") = strSaveTable
connDest.Properties("Jet OLEDBatabase Password") = strCookie
connSource.Properties("Data Source") = strAccessFileLocation
connSource.Properties("Jet OLEDBatabase Password") = strCookie
connDest.Open
connSource.Open
connDest.Execute strSQL1
connDest.Execute strSQL2
connDest.Close
connSource.Close
End Sub

This code works 100% fine as long as I am not copying from a password protected database. How can I get this to work with the password protected database?
Thanks,
Whil