[odai]

(10-11-22, 11:20 PM)يوسف العزير كتب : احتاج إلى طريقة لفتح ملف اكسس بالفجول استوديو 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

Dim c As New OleDb.OleDbConnention("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\Interface system.accdb; Jet OLEDB:database Password=123456")
Try
   c.Open()

Catch ex As Exception
   MsgBox(ex.Message)

Finally
   c.Close()
End Try