تعلمنا كيفية فتح قاعة بيانات لها كلمة مرور عن طريق هذا الكود
Dim wrkJet As Workspace
Dim ABA As Database
Set wrkJet = DBEngine.Workspaces(0)
Set ABA = wrkJet.OpenDatabase("c:\back.mdb", False, False, ";PWD=aman2")
ولكن ما هو كود انشاء قاعدة بيانات جديدة وتحديد لها كلمة مرور