Grazie a tutti per l'aiuto! Ecco la funzione con cui ho risolto il problema, dovesse servire anche a qualcun'altro...

procedure TFm_Login.CompactDatabase;
var MsJet: Variant;
begin
Fm_Login.ADOCnt.Close;
MsJet := CreateOleObject('JRO.JetEngine');
MsJet.CompactDatabase('Data Source="<percorso database>"; Jet OLEDB : Database password="<password database>";',
'Data Source="<percorso database backup>"; Jet OLEDB : Database password="<password database backup>";');
DeleteFile('<percorso database>');
RenameFile('<percorso database backup>','<percorso database>');
end;

Bisogna anche importare la unit ComObj al progetto.