كلمة مرور قاعدة البيانات ..؟؟

السلام عليكم جمعياً ..

أواجه مشكلة مع تعريف كلمة المرور وقاعدة البيانات ..

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

Dim DB As Database
Dim RS As Recordset


Set DB = OpenDatabase(App.Path + "\clinic.mdb")
Set RS = DB.OpenRecordset("passtbl", dbOpenDynaset)

فأين أضع كود كلمة المرور الخاص بقاعدة البيانات ..!!

رجاء أن أجد ضالتي عندكم فبرنامجي متوقف على هذا الكود ..

تحياتي;