Sub ÄndereAnzahlAnschreibungenZK()
 
        Try
            Hauptprogramm.tsslStatus.ForeColor = Color.Red
            Hauptprogramm.tsslStatus.Text = "Datensatz wird geändert...!"
 
            Kundendaten_Ausgeben.dgv_ZK.BeginEdit(True)
 
            For i = 0 To Kundendaten_Ausgeben.dgv_ZK.Rows.Count - 1     ' oder 
            ' -2, falls AllowUserToAddRows = True
                Kundendaten_Ausgeben.dgv_ZK.Rows(i).Cells("Anzahl d." & _
                  "Anschreibungen").Value += 1
                Kundendaten_Ausgeben.dgv_ZK.Rows(i).Cells("letztes Anschreiben" & _
                "am:").Value = Today
            Next
 
            Kundendaten_Ausgeben.dgv_ZK.EndEdit()
 
            'dt_Zeitungskunden.AcceptChanges()
 
            For Each Zeile As DataRow In dt_Zeitungskunden.Rows
                MessageBox.Show(Zeile.RowState.ToString)
                'If DataRowState.Modified = True Then
                '    Kundendaten_Ausgeben.dgv_ZK.EndEdit()
                '    'DataRow.SetModified()
                '    'ElseIf DataRowState.Modified = True Then
                'End If
            Next
 
            Try
                Dim cmdb As MySqlCommandBuilder = New MySqlCommandBuilder( _
                  da_Adapter)
                da_Adapter.Update(dt_Zeitungskunden)
            Catch ex As Exception
                MessageBox.Show(ex.ToString)
            End Try
 
        Catch dberror As MySqlException
            MessageBox.Show("Es ist folgender Fehler aufgetreten: " & _
              dberror.Message)
        End Try
 
        Hauptprogramm.Timer1.Stop()
 
    End Sub