Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles _
    btnAdd.Click
        Daten_erledigt_speichern()
        'Dataset speichern
        saveDB()
    End Sub
    '// Daten verschieben in die Tabelle TODOFERTIG
    Private Sub Daten_erledigt_speichern()
        Me.Cursor = Cursors.WaitCursor
        For i As Integer = 0 To TDDS.TODO.Rows.Count - 1
            Dim rowAlreadyExist As Boolean = False
            Dim row As DataRow = TDDS.TODO.Rows(i)
            Dim drNew As DataRow = TDDS.TODOFERTIG.NewRow()
            If row("Status") = True Then
                drNew.ItemArray = row.ItemArray
                TDDS.TODOFERTIG.Rows.Add(drNew)
            Else
                'MessageBox.Show("Check", "Status", MessageBoxButtons.OK, 
                ' MessageBoxIcon.Information)
            End If
        Next i
        Me.Cursor = Cursors.Default
        Daten_erledigt_entfernen()
    End Sub
    '// Daten nach verschieben in die Tabelle aus der DGV TODO entfernen
    Private Sub Daten_erledigt_entfernen()
        Me.Cursor = Cursors.WaitCursor
        Dim intRowCounter As Integer = 0
        While intRowCounter <> -1
            If intRowCounter < TODODataGridView.RowCount Then
                If TODODataGridView.Rows(intRowCounter).Cells(4).Value = True _
                  Then
                    TODODataGridView.Rows.Remove(TODODataGridView.Rows( _
                    intRowCounter))
                Else
                    intRowCounter += 1
                End If
            Else
                intRowCounter = -1
            End If
 
        End While
        Me.Cursor = Cursors.Default
        MessageBox.Show("Aktion erfolgreich", "Status", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
    End Sub