[[coso]]

Hola, con esto

Código Delphi [-]
function CompactAndRepair(nombreorigen,nombredestino: string) : boolean;
var
     v: OLEvariant;
begin { CompactAndRepair }
     Result := True;
     try    v := CreateOLEObject('JRO.JetEngine');
            try     v.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + nombreorigen,
                                      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + nombredestino +' ;Jet OLEDB:Engine type=5');
            finally v := Unassigned
            end;
     except result := False
     end;
end;

tendras una copia compactada y reparada si es el caso. saludos.