كيف يمكن فتح قاعدة بيانات محمية بكلمة مرور اسكي

السلام عليكم ورحمة الله وبركاته

أخواني الكرام لدي قاعدة بيانات محمية بكلمة مرور اسكي ؛ ولدي كود يقوم بفتح قاعدة بيانات بكلمة مرور عادية

كود فتح قاعدة البيانات:

Dim wrkJet As Workspace
Dim dbs As Database
Set wrkJet = DBEngine.Workspaces(0)
Set dbs = wrkJet.OpenDatabase(data_name, False, False, ";PWD=123")

كيف يمكن أعداد هذا الكود لفتح قاعدة بيانات محمية بكلمة مرور اسكي

شكرا مقدما