压缩Microsoft Access database from .NET

Shared Sub Compact(ByVal fileName As String)
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fileName
Dim objJRO As Object = System.Activator.CreateInstance(System.Type.GetTypeFromProgID("JRO.JetEngine"))
Dim oParams As Object() = New Object() {connectionString, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fileName & ".tmp ;Jet OLEDB:Engine Type=5"}
objJRO.GetType().InvokeMember("CompactDatabase", System.Reflection.BindingFlags.InvokeMethod, Nothing, objJRO, oParams)
System.IO.File.Delete(fileName)
System.IO.File.Move(fileName & ".tmp", fileName)
System.Runtime.InteropServices.Marshal.ReleaseComObject(objJRO)
objJRO = Nothing
End Sub

CompactDatabase.Compact("c:\temp\database.mdb")

Compact a Microsoft Access database from .NET