Compactar Access pelo VBA

[Diulis]

Pessoal,

Varri a internet a procura de uma ajuda e não tive sucesso!

Tenho a necessidade de compactar um banco Access pelo VBA do Excel porém na rotina que eu encontrei ocorre um erro.

Mensagem de Erro: "O Microsoft Excel está aguardando que outro aplicativo conclua sua ação OLE."

A rotina que estou usando é assim:

' Para o 2003, use Application.11

Set objAccess = CreateObject("Access.Application")

' Executa a compactação do arquivo.mdb no arquivo temporário

objAccess.DBEngine.CompactDatabase Origem, Destino

Desde já agradeço!!

[João.Neto]

Sub CompactDb()
   Dim jetEng As Object 'JRO.JetEngine
   Dim strCompactFrom As String
   Dim strCompactTo As String
   Dim strPath As String
    
   strPath = ThisWorkbook.Path & "\"
   strCompactFrom = "Database1.mdb"
   strCompactTo = "Database1Comp.mdb"

   On Error GoTo HandleErr

   Set jetEng = CreateObject("JRO.JetEngine") '= New JRO.JetEngine
   jetEng.CompactDatabase "Data Source=" & strPath & strCompactFrom & ";", "Data Source=" & strPath & strCompactTo & ";"

   Kill strPath & strCompactFrom
   Name strPath & strCompactTo As strPath & strCompactFrom
ExitHere:
   Set jetEng = Nothing
   MsgBox "Compacting completed."
   Exit Sub
HandleErr:
   MsgBox Err.Number & ": " & Err.Description
   Resume ExitHere
End Sub