Option Explicit
Private Sub Command1_Click()
On Error GoTo err
Dim DbEngine, dbFile As String
dbFile = "D:\my.mdb"
Set DbEngine = CreateObject("DAO.DBEngine.36")
'CompactDatabase(filename,tempfile,'',0,";pwd=123");
DbEngine.CompactDatabase dbFile, "d:\OKtemp.mdb", "", 0, ";pwd=123"
Kill dbFile
Name "d:\OKtemp.mdb" As dbFile
Exit Sub
err:
MsgBox err.Description
End Sub