دسترسی به پایگاه داده ی پسورد دار...؟

[Amin4u]

سلام دوستان

من با رفرنسهاي
Microsoft Data Environment Instance 1.0
Microsoft DAO 3.51 Object Library

اين شکلي با ديتابيس ارتباط برقرار ميکنم

کد:

Dim db As Database
Dim rs As Recordset

کد:

Set db = OpenDatabase(App.Path & "\X.mdb")
Set rs = db.OpenRecordset("Table Name")

با اين وجود چه طوري ميتونم به ديتابيس اکسس پسورد دارد متصل بشم؟

قاعدتآ بايد با اين کد وصل بشه!
ولي نميشه!!!!

کد:

("Set db = OpenDatabase(App.Path & "\db.mdb", False, False, ";pwd=pas

خيلي کارم گيره
ممنون ميشم اگه کسي کمکم کنه.م