Pomoć u vezi linkovanja

Da bi se napravio link iz VBA na dugu .mdb koristi se komanda DoCmd.TransferDatabase, npr.

DoCmd.TransferDatabase acLink, "Microsoft Access", "D:\Baza.mdb", acTable, "Artikli", "Artikli", False, True

Kako da se linkujem na drugu .mdb kada je ista zaštićena paswordom koji ja znam. Odnosno kako da to ostavrim a da ne moram svaki put prilikom linkovanja da ukucavam password. Da li je moguće automatizovati taj proces iz VBA.

Unapred zahvalan

curp = ";pwd=" + "mojpasvord"
cursetdef="c:\lokal\test.mfb"
Dim db As Database
Set db = DBEngine.Workspaces(0).OpenDatabase(cursetdef, False, False, curpasword)
DoCmd.TransferDatabase acLink, "Microsoft Access", cursetdef, acTable, "radnik", "radnik", False

Eto kako

Pozdrav , Trtko