คำถามไม่มีรายละเอียด ผมตอบตามที่เข้าใจผมเองนะครับ
คือปกติถ้าเราใช้คำสั่งลิ้งค์ไฟล์ภายนอกแบบไม่มี Pass ก็จะประมาณนี้

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Data\Database.mdb")
DoCmd.TransferDatabase acLink, ....

ถ้ามี Pass เช่น 12345 ก็ใช้ประมาณนี้

Set db = DBEngine.Workspaces(0).OpenDatabase("C:\Data\Database.mdb", False, False, ";pwd=12345") ' ถ้าเป็น 2003 มี user ID ก็ใส่ uid=...
DoCmd.TransferDatabase acLink, ....

ประมาณนี้ครับ ปรับใช้ดู

ขอบคุณครับ อ TTT คำสั่งที่ให้มายังใช้ไม่ได้ครับ
ขอให้ข้อมูลเพิ่มครับ ผมมีฐานข้อมูล เป็น. accdb (access 2010)ทำการแยกเป็น front-end, back-end ส่วนของ back-end ใส่ password ไว้ แล้วอขียนโค๊ดให้ลบตารางที่ link ออกทุกครั้งเมื่อปิดโปรแกรมส่วน front end และเมื่อเปิด front end ใหม่ (มีฟอร์ม log in ขึ้นมาก่อน) ต้องการให้ front end เชื่อมต่อไปยัง back end อัตโนมัติครับ ต้องเขียน โค๊ดยังไง ใส่ไว้ที่ไหนครับ ขอบคุณครับ

ข้อมูลเพิ่มอีกนิดครับ คือต้องการเชื่อมโยงตารางทุกตารางครับ ไม่ว่าตารางชื่ออะไร