Dim NL As String = Environment.NewLine
        '--------------------------------------------------------------------
        Dim FirstDate As Date = CDate(dtp_start_Datetime.Value)
        Dim delta As Integer = CLng(nud_Sekunden.Value)
        Dim mCount As Integer = CInt(nud_mCount.Value)
 
        Dim Msg As String = Nothing
        Dim Daten As DataTable = DataSet1.Details
 
        For i = 1 To mCount
            FirstDate = DateAdd(DateInterval.Second, delta, FirstDate)
            If Daten.Select("Tagesuhrzeit = '" & FirstDate.ToString("dd.MM.yyyy" & _
              "HH:mm") & "'").Count = 0 Then
                ' Neue DRV
                Dim DR As DataRow = Daten.NewRow
                DR.Item("day") = FirstDate.ToString("ddd")
                DR.Item("Tagesdatum") = FirstDate.ToString("dd.MM.yyyy")
                DR.Item("Tagesuhrzeit") = FirstDate.ToString("HH:mm")
                DR.Item("Kommentar") = ">"
                'Neue Zeile
                Daten.Rows.Add(DR)
                'Me.Validate()
                'DetailsBindingSource.EndEdit()
                'In Dataset speichern 
 
            Else
                'abbrechen
                DetailsBindingSource.CancelEdit()
 
            End If
        Next
 
        Me.DetailsBindingSource.Sort = "Tagesuhrzeit Asc"