Me.TableAdapterKunden.Fill(dtsKunden.kundenstamm, Kundennummer)

        Dim recordsChanged As System.Data.DataTable = _
          dtsKunden.kundenstamm.GetChanges
        If (Not recordsChanged Is Nothing) AndAlso recordsChanged.Rows.Count _
        > 0 Then
            Dim result As DialogResult = MessageBox.Show("Sollen die Änderungen" & _
            "in gespeichert werden?", "Visual OPT .NET", _
            MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = Windows.Forms.DialogResult.Yes Then
                Try
                    Me.SaveAppointments()
                Catch exc As Exception
                    Me.Cursor = System.Windows.Forms.Cursors.Default
                    MessageBox.Show("Ein Fehler ist während des Speicherns" & _
                      "aufgetreten!" & _
                        Environment.NewLine & exc.Message, "Visual OPT .NET", _
                        MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                End Try
            End If
        End If