اكتب باسورد قاعدة البينات فين وانا بفتحها بال Dao

هناك أمثلة كثيرة بالمنتدي تفيد بذلك

Set db = OpenDatabase(txtdir", False, False, ";pwd=150")

False, False يظهرو بالاحمر

لقد وجدت هذا الكود وهو يعمل

Set db = DBEngine.OpenDatabase("db1.mdb", False, False, "MS Access;PWD=123")

مشكورررر

المشكلة دلوقتي لمه اجي افتح قاعدة بينات بال Data control لمه اجي احدد علي Record source بيقول لي اني الباسورد خطيء مش عارف اكتب في باسورد قاعدة البينات في Data control

اقتباس

باسورد قاعدة البينات في Data contro

توجد الخاصية connect ضعها فيها

data1.connect =data1.connect & "pwd=1234;"