[السيد الغالي]

السلام عليكم
ضع هذا الكود 

كود :

Set db = OpenDatabase(".\compny.mdb", False, False, ";pwd=123")