AddHandler ds.Tables("Aerzte").RowChanged, AddressOf arzt_row_changed

 Dim datensatz As DataRow = loc_arzt_ds.Tables("Aerzte").Rows.Find(loc_arzt_id)
       ...any code
        loc_arzt_ds.Tables("Aerzte").AcceptChanges()

Private Sub arzt_row_changed(ByVal sender As Object, ByVal e As _
  DataRowChangeEventArgs)
        Select Case e.Action
            Case DataRowAction.Add
               'Code
                MsgBox("Datenbankaktion erfolgreich abgeschlossen.", _
                  MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
            Case DataRowAction.Commit
               'Code
                MsgBox("Datenbankaktion erfolgreich abgeschlossen.", _
                  MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
            Case DataRowAction.Delete
              'Code
                MsgBox("Datenbankaktion erfolgreich abgeschlossen.", _
                  MsgBoxStyle.OkOnly, My.Application.Info.ProductName)
        End Select
    End Sub