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

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

اخواني الاعزاء قمت بتصميم برنامج على الفيجوال بيسك وتم ربط قاعدة بيانات تم بناءها على الاكسيس واردت وضع كلمة مرور لها ولكن صادفتني مشكلة وهي انه اذا تم ربط قاعدة البيانات مع الفورم بواسطة data فانه لا مشكلة تذكر ويتم قراءة البيانات من قاعدة البيانات اما اذا تم ربط قاعدة البيانات بواسطة ado فتظهر لي الرسالة التالية (Not a vaild password), مع العلم انني احتاج الى ado في البرنامج بسبب وجود datagrid في اكثر من فورم والكود الذي استعملته هو:-

Dim db As Database
Dim MyRs As Recordset
Set db = OpenDatabase("db1.mdb", False, False, ";pwd=pass")
Set MyRs = db.OpenRecordset("tabel", dbOpenTable)

في انتظار الحل من عندكم وشكرا