[يوسف العزير]

احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 2015 والملف يحتوي على كلمة سر 
استخدمت الكود التالي ولكن لم ينفع 

        Try
            Dim AccessDB As Object
            AccessDB = CreateObject("Access.Application")
            AccessDB = OpenCurrentDatabase(Application.StartupPath + "Interface system.accdb", False, "123456")
            Close()
        Catch ex As Exception
            MsgBox(ex.Message)
            'Close()
        End Try

المطلوب افتح ملف اكسس عن طريق الفيجول استوديو 2015