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