VB CompactDatabase 压缩/修复数据库

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