VB.Net透过JRO修复Access MDB

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' 将C:\db1.mdb 做Compact / Repair If Compact_MDB("C:\db1.mdb") Then MessageBox.Show("OK !") End Sub