Dim dt As DataTable = DataSet1.Details
        '##########
        Dim currentDate As DateTime = timepicker.Value        'DateTime.Now
        Dim i As Double
        Dim delta As Double = 1.5
        Dim hCount As Integer = 10 'CInt(DateDiff(DateInterval.Hour, 
        ' currentDate, endDate))
 
        For i = 0 To hCount Step delta
            Dim NewRow As DataRow = dt.NewRow
 
            NewRow("Tagesdatum") = currentDate.AddHours(i).ToString("dd.MM.yyyy" & _
              "HH:mm")
            NewRow("Kommentar") = "das funzt-------"
            dt.Rows.Add(NewRow)
        Next
 
 
 
        DetailsDataGridView.Refresh()