压缩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