ท่านใดพอจะทราบโค๊ต compact & repair access ด้วย vb.net

Module Module1

    Sub Main()

        Dim jro As JRO.JetEngine

        jro = New JRO.JetEngine()

        jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")

        MsgBox("Finished Compacting Database!")
    End Sub

End Module

 Dim jro As JRO.JetEngine
                jro = New JRO.JetEngine()
                jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Str_PathBase, _
          "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Str_PathBase & ";Jet OLEDB:Engine Type=5")