Just found this old thread. Have you got a solution yet? If not then try removing the password first, then do your transfers, then recreate the password.
Set dbsNew = DBEngine.OpenDatabase("c:\myfolder\Test.mdb", True, False, ";pwd=yourpassword")
dbsNew.NewPassword "yourpassword", ""...