Nhờ các Pro chỉ giúp cách kết nối với file database có pass bằng DAO ! tmtien261 dùng đoạn code sau:

...
Dim rs As DAO.Recordset
Dim Mydb As DAO.Database
Dim P As String
P = "a"
Set Mydb = OpenDatabase(CurrentProject.Path & "\Data.accdb", True, False, "MS Access;PWD= " & P)
Set rs = Mydb.OpenRecordset("table", dbOpenTable)
...
(Trong đó file data có pass là "a")
Khi chạy bị báo lỗi: "Not avalid pasword"
Nhờ các Pro chỉ giúp cách gỡ ! Cảm ơn nhiều !

tmtien261 đã mò mẫn đc rồi ! Sửa đoạn:
"MS Access;PWD= " & P)
Thành:
"MS Access;PWD= a") để thẳng a chàng pass vào luôn !

Bạn sửa dòng lệnh này: "MS Access;PWD= " & P)
Thành: "MS Access;PWD='" & P &"'" 'Chú ý PWD=nháy đơn nháy đôi & P & nháy đôi nháy đơn nháy đôi
Vì PWD=chuỗi nên ta phải bao giá trị của P trong cặp nháy đơn để nó trở thành chuỗi (ví dụ 'a')
Với cách này thì biến P ta có thể tùy biến password bằng giá trị nhập vào một text box nào đó và truyền váo câu lệnh trên.