ผมใช้โค้ดชุดนี้เพื่อ link ตารางมาจากอีกฐานข้อมูลหนึ่ง ซึ่งในเป็นกรณีที่ฐานข้อมูลที่ link ตารางมาไม่ได้ใส่ password ก็สามารถลิงค์ได้ปกติครับ แต่กรณีที่ฐานข้อมูลที่ link ตารางมาใส่ password ไว้มันไม่สามารถลิงค์มาได้ ผมต้องทำยังไงถึงจะ link ฐานข้อมูลที่ใส่ password ได้ครับ

Private Sub Form_Load()
Dim tdTable As TableDef
Dim dbDataDB As Database
Dim strMyDataDB As String

    For Each tdTable In CurrentDb.TableDefs
    If Left(tdTable.Name, 4) <> "MSys" Then 'filter out System tables
        DoCmd.DeleteObject acTable, tdTable.Name
    End If
    Next tdTable
      strMyDataDB = "D:\DATA\Data.accdb"
   
    Set dbDataDB = OpenDatabase(strMyDataDB)
    For Each tdTable In dbDataDB.TableDefs
        If Left(tdTable.Name, 4) <> "MSys" Then
        DoCmd.TransferDatabase acLink, "Microsoft Access", dbDataDB.Name, acTable, tdTable.Name, tdTable.Name
        End If
    Next tdTable
       
End Sub