با سلام
در تابع ConnectToDatabase عبارت روبروی LinkPath رو به صورت زیر تغییر بدید .
LinkPath = "MS Access;PWD=" & "123" & "" & ";DATABASE=" & "c:\Data file.mdb"
در این مثال من فرض رو بر این قرار دادم که شما رمز فایل اطلاعاتی رو 123 در نظر گرفتید .
یک توصیه عمومی :
در صورتی که فایلتون زیاد با یه فایل دیگه در ارتباطه بهتره که از ADO جهت انجام اینکار استفاده کنید .
عملاً ADO در بانکهای رابطه ای عملکرد جالبی رو از خودش به نمایش میذاره و عین یه کاتالیزور میتونه روی کارایی کلی بانک اطلاعاتیتون تاثیر مثبتی بذاره .
ADO یه پروتکل ارتباطیه که عملاً جایگزین DAO داره میشه . Microsoft در نسخه 2007 به صورت جدی این پروتکل رو مورد هدف قرار داده . و به احتمال زیاد تا چند سال آینده پشتیبانی از DAO رو به پایان میرسونه .
عملاً نسل آتی بانکهای رابطه ای الزاماً از این سیستم استفاده میکنن .با آرزوی موفقیت برای تمامی دوستانم