Public Sub CompactDB(DBName As String)
Dim jr As JRO.JetEngine
Dim strOld As String, strNew As String
Dim x As Integer

Set jr = New JRO.JetEngine

strOld = DBName
x = InStrRev(strOld, “\”)
strNew = Left(strOld, x)
strNew = strNew & “chngMe.mdb”

‘ Access 97 için Engine Type = 4
‘ Access 2000 için Engine Type = 5
jr.CompactDatabase “Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password=q; Data Source=” & strOld, _
“Provider=Microsoft.Jet.OLEDB.4.0; Jet OLEDBatabase Password=q;Data Source=” & strNew & “;Jet OLEDB:Engine Type=5″

Kill strOld
DoEvents
Name strNew As strOld

Set jr = Nothing

End Sub