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.ToShortDateString}' and '{EndDatum.ToShortDateString}'"
 
        Dim dt As DataTable = QueryAsDataTable(sql)
 
        For Each row As DataRow In dt.Rows
            StartDatum = StartDatum.ToShortDateString
            EndDatum = EndDatum.ToShortDateString
 
            If row("t_datum") >= StartDatum And row("t_datum") <= EndDatum Then
                Dim Appday As DateTime = DateTime.Parse(row("t_datum"))
                Dim link As New LinkLabel
                link.Tag = row("ID")
                link.Name = $"link{row("ID")}"
                link.Text = row("t_name")
                AddHandler link.Click, AddressOf TerminDetailsanzeigen
                flpTageslabelliste((Appday.Day - 1) + (StartTagflpNummer - _
                  1)).Controls.Add(link)
 
            End If
 
        Next
 
    End Sub