لعل المشكلة عندك فى الفاصلة المنقوطة جرب ازالتها
Call CreateLinks(CurrentProject.Path & "\ATB1.mdb", "pwd=123")
أو جرب هذا
Call CreateLinks(CurrentProject.Path & "\ATB1.mdb", "123")
واذا لم يفلح الأمر أرفق لنا مثالا لنطلع على دالة الربط حتى نتمكن من المساعدة