Kod:
Sub onarma()
Dim jro As New JRO.JetEngine
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=***lım;Data Source='" + Form1.TextBox1.Text + "'", _
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB Database Password=***lım;Data Source='" + Form1.TextBox2.Text + "';Jet OLEDB:Engine Type=")
MsgBox("Sıkıştırma Başarıyla Tamamlandı!", MsgBoxStyle.Information, "Sıkıştırma Başarıyla Tamamlandı")
End Sub