فراخوانی یک پایگاه از خارج از پایگاه

[venus_h]

فوری : با سلام من از دستور زیر برای باز کردن یه پایگاه استفاده میکنم:
Dim wrkJet As Workspace
Dim DBMS As Database
Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)
Set dbsDB = wrkJet.OpenDatabase("Q:\Shared Data\Database\Instruction.accdb", True)

حالا مشکلم اینه که پایگاهی رو که دارم فراخونی میکنم پسورد داره و موقع باز کردن نمیتونه پسورد رو بخونه و پایگاهو باز نمیکنه، کجای این کد باید پسورد رو بزارم که بتونه پایگاه دادمو باز کنه؟

[mahdi_107]

Set workspace = CreateWorkspace(name, user, password, type)