فتح قاعدة بيانات محمية

اخ جلال ...

اضف الى مشروعك Module و ضع فيه هذا الكود و اختر Sub Main من خصائص المشروع كـ Startup object

Public ws As Workspace

Public db As Database

Sub main()



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

انا جربت هذا لكود لدي في مشروع به داتا كنترول و اشتغل تمام.