Private Function GetChanges() As Boolean
        Me.KundenstammGefundenBindingSource.EndEdit()
        Return DtsKundenstamm.HasChanges
    End Function
    Public Function SaveChanges() As Boolean
        Try
            If GetChanges() = True Then
                Dim Antwort As MsgBoxResult
                Antwort = DevComponents.DotNetBar.MessageBoxEx.Show("Es wurden" & _
                  "Änderungen vorgenommen " & _
                    "Sollen diese gespeichert werden?", "Bitte bestätigen", _
                    MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                If Antwort = MsgBoxResult.Yes Then
                    Me.KundenstammGefundenTableAdapter.Update( _
                      DtsKundenstamm.kundenstamm)
                    Me.DtsKundenstamm.AcceptChanges()
                    Return True
                Else
                    Return False
                End If
            End If
        Catch
            Return False
        End Try
    End Function