Private Sub mTA_master_RowChanged(ByVal sender As Object, _
       ByVal e As System.Data.DataRowChangeEventArgs) Handles _
       mTA_master.RowChanged
        Dim i As Int32
        'Static MsgBoxStart As Boolean
        If Not BearbeitungEigeneDaten() Then
            mTA_master.CurrentRow.RejectChanges()
            Exit Sub
        End If
 
            i = MessageBox.Show("Sie haben die Daten geändert. Sollen die" & _
              "Änderungen gespeichert werden?", "Mitarbeiterdaten", _
              MessageBoxButtons.YesNoCancel, MessageBoxIcon.Information)
            Select Case i
                Case DialogResult.Yes
                    DoUpdate()
                Case DialogResult.No
                    mTA_master.CurrentRow.RejectChanges()
                Case DialogResult.Cancel
                    'mTA_master.BindingSource.Position = 
                    ' mTA_master.BindingSource.Position
            End Select
 
    End Sub