ایجاد لینک جداول

زمانیکه شما جداول را از فرم ها و کوئری و سایر آبجکتها جدا یا Split کرده باشید برای لینک زدن به جداول در دیتابیسی حاوی جداول که پسورد گذاشته اید از کد زیر استفاده نمائید.

با OpenDatabase ، دیتابیس دارای پسورد را باز می کنید و سپس با TransferDatabase هم لینک به جداول دیتابیس حاوی جداول

strLinkedTablesArray آرایه ای حاوی جداولیست که میخواهید بصورت لینک شده در دیتابیسی که می خواهید Share کنید ایجاد شود 

Set db = CurrentDb
Set dblink = DBEngine.OpenDatabase(strDbFile, False, False, ";PWD=" & strP)
For Each strTable In strLinkedTablesArray
     DoCmd.TransferDatabase acLink, "Microsoft Access", dblink.name, acTable, _
         strTable, strTable
Next

کد بالا مطمئن تر از استفاده از TableDef.Connect است 

برای استفاده در Tabledef.Connet

 strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strDbFile"

باز کردن دیتا بیس اکسس :

Dim wsAccess As Workspace

Set wsAccess=Dbengine(0) 

 'Open a Microsoft Access database -shared -read-only

   Set dbAccess = wsAccess.OpenDatabase("C:\Temp\db1.accdb", False, True)