Obtener maximo valor de un campo en Access

[wilcg]

De nuevo aquí en el foro, tengo un error que no le encuentro cura. Haber si me dan una solución.

Código Delphi [-]
with Query1 do
  begin
    SQL.Clear;
    Close;
    SQL.Text := 'Select max(codigo) as codigo from clientes';
    Open;
    Edit1.Text := FormatFloat('0000000', StrToFloat(FloatToStr(FieldByName('CODIGO').AsInteger +1)));
    Close;
    Active := False;
  end;

Este código funciona correctamente en Firebird, Posgresql que ya lo probe. Pero en Access me da error, no funciona ¿como puedo obtener el valor maximo de un campo en un base de datos .MDB de Access?. necesito una manito.