Обработка целостности данных

При сохранении документа (Form_BeforeInsert) идет моя проверка сохраняемых данных (целостность там и пр.):

Private Sub Form_BeforeUpdate(Cancel As Integer)

If CheckHeader() Then
Cancel = True
Exit Sub
End If

End Sub

В случае когда возникает ошибка хотелось бы чтобы сохранение документа прекратилось до лучших времен. Тем не менее документ продолжает сохраняться, т.к. я получаю серверную месагу об ошибке (adp+SQL2000).
Подскажите плз как не дать сохранить.

у меня не дает сохраняться. значит условия у тебя не выполняется.