Access - Compactar BD con un boton

Private Sub btnCompactar_Click()

On Error GoTo Err_Handler

    Dim strPath As String

    Dim strDBName As String

    strPath = CurrentProject.Path & "\"

    strDBName = CurrentProject.Name

    DBEngine.CompactDatabase strPath & strDBName, strPath & "temp.mdb"

    Kill strPath & strDBName

    Name strPath & "temp.mdb" As strPath & strDBName

    MsgBox "La base de datos ha sido compactada con éxito.", vbInformation, "Base de datos compactada"

Exit_Handler:

    Exit Sub

Err_Handler:

    MsgBox "Se ha producido un error al compactar la base de datos: " & Err.Description, vbCritical, "Error"

    Resume Exit_Handler

End Sub