مساعدة للتعديل على كود اتصال مع اكسيس

بسم الله الرحمن الرحيم
السلام عليكم

  لدي سؤال لو تكرمتم بالرد  :excl: 
لدي قاعدة بيانات اكسيس .. اتصل بها من خلال الفيجوال بيسك عن طريق 

Public Sub ConnectionDatabase()
 On Error GoTo 1
 If db.State = adStateOpen Then _
    db.Close
    
    db.CursorLocation = adUseClient
    db.Provider = "Microsoft.JET.OLEDB.4.0;"
    db.Open App.Path & "\AAAA.mdb"
Exit Sub
1
 MsgBox Err.Description, vbCritical, "Unit Sale"
End Sub

ولكن في هذه الحالة فاعدة البيانات غير محمية بكلمة مرور
طلبي هو .. أنني وضعت كلمة مرور على القاعدة ولكن كيف سأستدعيها بالفيجوال 

أي بمعنى اخر ما التعديل على الكود ليقوم باستدعاءها

أرجو الرد للضرورة ... وشكرا