[Anas Mahmoud]

حسنا بعد بحث تحتاج لاضافة مرجع Reference للمكتبة Microsoft Access من COM

   
   

ثم يكون كود فتح البرنامج كما يلي :

كود :

   Sub OpenAccess(FileName As String, Optional Password As String = "")
       Dim oAccess As Access.Application

       'فتح البرنامج
       'Start Access and open the database.
       oAccess = CreateObject("Access.Application")
       oAccess.Visible = True
       oAccess.OpenCurrentDatabase(FileName, False, Password)

       'لتشغيل ماكرو
       'Run the macros.
       'oAccess.Run("Macro1")
       'oAccess.Run("DoKbTestWithParameter", "Hello from VB .NET Client")

       'لاغلاق البرنامج وتنظيف الذاكرة منه
       'Clean-up: Quit Access without saving changes to the database.
       'oAccess.DoCmd().Quit(Access.AcQuitOption.acQuitSaveNone)
       'System.Runtime.InteropServices.Marshal.ReleaseComObject(oAccess)
       'oAccess = Nothing
   End Sub

---

عذرا لم الحظ انك قمت بالرد ، حسنا سأترك المثال ربما يستفاد به الاخوة