Копирование таблицы БД1->БД2. Как прописать пароль к БД2?

Есть простая программа, копирующая таблицу Table из baza2->baza1.
А если на baza1 установлен пароль?
Как зашить его в программу, чтобы не вводить пароль вручную?

Dim Aks As Access.Application
Set Aks = CreateObject("Access.Application")
Aks.Visible = False
Aks.OpenCurrentDatabase ("baza1.mdb")
On Error GoTo creat
Aks.DoCmd.DeleteObject acTable, "Table"
creat:
Aks.DoCmd.TransferDatabase acImport, "Microsoft Access", "baza2", acTable, "Table", "Table"

В смысле пароль установлен на ту базу куда копируем (БД1 по моему тексту)

подточи для себя (это связывание с таблицами запароленной базы):

inPSW = Nz(InputBox("Введите пароль", "Открытие базы для связывания"))
Set dbt = DBEngine.Workspaces(0).OpenDatabase(FilePuth, False, False, "MS Access;PWD=" & CStr(inPSW))
For Each MyTbl In dbt.TableDefs
     If (MyTbl.Attributes And dbSystemObject) = False Then _
          DoCmd.TransferDatabase acLink, "Microsoft Access", FilePuth, acTable, MyTbl.name, MyTbl.name, False
Next

тоесть надо transerdatabase не другого application (import) , а в другую "workspace.database" (export)
вроде не наврал :)