Ошибка ADO

[Баламут]

В общем суть проблемы такова. Есть грид с футером. При вводе нового значения в гриде проводится проверка суммы вновь вводимого значения с содержимым футера. Если сумма больше определенного значения нужно просто отменить запись в базу...
Вот код

procedure TForm1.DBGridEh1Columns0UpdateData(Sender: TObject; var Text: string;
  var Value: Variant; var UseText, Handled: Boolean);
var
  n: integer;
  s: string;
  v: integer;
begin
v := value;
s := Grid1.Columns[0].Footers[0].SumValue;
n := StrToInt(s) + value;
if n > 3000 then
begin
try
Application.MessageBox(PChar(IntToStr(n)),'',mb_Ok);
AdoTable1.CancelUpdates;
except
end;
end;
end;

Все бы ничего, но ADOTable1 возвращает ошибку - Не могу записать при закрытом датасете. Оно и понятно. Вопрос в том, как подавить это сообщение. В примере кода используется DBGridEh. Но в идеале хотелось сделать это с cxGrid.