[princelovelorn]

جزاك الله خيرا أخي الفاضل وأستاذي  elgokr
ولكن نفس المشكلة

كود :

   Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
       Dim source = "C:\aaaaaa\MyDb.accdb "
       Dim compact = "C:\aaaaaa\MyDbcom.accdb"

       RunCompactDatabase(source, compact, "123456789")
   End Sub


   Sub RunCompactDatabase(ByVal Sou As String, ByVal Com As String, ByVal Pass As String)
       Dim AccessDatabaseEngine As New Microsoft.Office.Interop.Access.Dao.DBEngine
       Dim source As String = Sou
       Dim compact As String = Com
       Dim MyPassword As String = Pass
       AccessDatabaseEngine.CompactDatabase(source, compact, ";pwd=" & MyPassword)
       MsgBox("The database was compacted successfully")
   End Sub