Private Sub AnzeigenderTermineimTagesfeld(ByVal StartTagflpNummer As Integer)
 
        Dim StartDatum As DateTime = New Date(aktuellesDatum.Year, _
          aktuellesDatum.Month, 1)
        Dim EndDatum As DateTime = StartDatum.AddMonths(1).AddDays(-1)
 
        Dim sql As String
        sql = $"select * from Termine where t_datum between '" & StartDatum & _
          "' and '" & EndDatum & "' "
 
        Dim dt As DataTable = QueryAsDataTable(sql)
        MsgBox(sql)
 
        For Each row As DataRow In dt.Rows
            Dim Appday As Date = Date.Parse(row("t_datum"))     'hier testen 
            ' wir gerade so rum
            Dim link As New LinkLabel
            link.Tag = row("ID")
            link.Name = $"link{row("ID")}"
            link.Text = row("t_name")
            flpTageslabelliste((Appday.Day - 1) + (StartTagflpNummer - _
              1)).Controls.Add(link)
 
        Next
 
 
    End Sub