VB Code:
Dim lcStrSource As String
Dim lcStrTarget As String
Dim lcStrEngine As String
Dim lcObjJRO As JRO.JetEngine
lcObjJRO = New JRO.JetEngine
lcStrSource = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
lcStrTarget = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & DBLoc2 & "; Persist Security Info = False;Jet OLEDB:Engine Type=4"
[b]lcObjJRO.CompactDatabase(lcStrSource, lcStrTarget)[/b]
Kill(DBLoc)
Rename(DBLoc2, DBLoc)
MsgBox("Database Compacted")