' Jedesmal, wenn der Record wechselt, soll die 
' Aktion ausgeführt werden
'------------------------------------------------
Sub dgv_RowValidating ...
  If Aktion() Then
    e.Cancel = True
  End If
 
  ...
  ...
End Sub
 
' Nur wenn es Änderungen gegeben hat, soll die
' Validierung stattfinden
'------------------------------------------------
Function Aktion() As Boolean
  BindingSource.EndEdit()
  If DataSet.HasChanges Then
    If Validierung() Then
      Return True
    End If
 
    ...
    DataAdapter(DataSet, "Tabelle")
    Return False
    ...
  End If
End Function
 
' Wenn Fehler auftreten, dann soll True zurückgeliefert werden
'-------------------------------------------------------------
Function Validierung() As Boolean
  If Fehler Then
    Messagebox.Show(...)
    Textfeld.Focus()
    Return True
  End If
 
  Return False
End Function