اسهل عمليه لفتح قاعدة بيانات تتم عن طريق استخدام الداتا كنترول ولكن المشكله في الداتا كنترول انه لايسمح باستخدام كلمة مرور لقاعدة البيانات .
ما العمل لفتح قاعدة بيانات محميه بكلمة مرور و تريد انت ان تفتحها بواسطه الداتا كنترول؟
اضف الى مشروعك Module و ضع فيه هذا الكود و اختر Sub Main من خصائص المشروع كـ Startup object
Public ws As Workspace
Public db As Database
Sub main()
'الافتراض هنا ان كلمة السر هي 1234
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("D:todo.mdb", True, False, ";pwd=1234")
db.NewPassword "1234", ""
db.Close
Form1.Show
End Subوفي الحدث terminate للفورم ضع هذا الكود
Set db = ws.OpenDatabase("D:todo.mdb", True, False)
db.NewPassword "", "1234"
db.Close