Код приведен ниже, метод TransferDatabase продолжает спрашивать пароль, даже если он уже указан в методе opendatabase. Я использую Access 2016.
tmp = "C:\DATA_BE.accdb"
Set db = OpenDatabase(tmp, false, False, "MS Access;PWD=Password")
DoCmd.TransferDatabase acLink, "Microsoft Access", tmp, acTable, "tblName", "tblName", False, False
db.Close