ايران ويج

سلام دوستان

من با رفرنسهاي
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

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

Amin4u