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

   '###########################################################################
   ' ##########################################################################
   ' ###############
    'Hier werden die Labels ( Die Monatstage ) in die Tage gesetzt, soviele 
    ' Labels( flpTagesLabelliste ) der Monat hat
    ' und Zahlen (vom ersten Tag im Monat (also 1 ) bis ende des Monats ( 
    ' soviel wie der Monat Tage hat )
    '##########################################################################
    ' #########################################################################
    ' #################
 
    Private Sub TagesLabelflp(ByVal StartTagflpNummer As Integer, ByVal _
      KompletteTageDesMonats As Integer)
 
        For Each flp As FlowLayoutPanel In flpTageslabelliste
            flp.Controls.Clear()
            flp.Tag = 0
            flp.BackColor = Color.White
        Next
 
        For i As Integer = 1 To KompletteTageDesMonats
            Dim lbl As New Label
            lbl.Name = $"lblDay{i}"
            lbl.AutoSize = False
            lbl.TextAlign = ContentAlignment.MiddleRight
            lbl.Size = New Size(150, 25)
            lbl.Text = i
            lbl.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
            lbl.ForeColor = Color.DarkOrchid
            flpTageslabelliste((i - 1) + StartTagflpNummer - 1).Controls.Add( _
              lbl)
 
        Next
    End Sub

 Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles _
   btnSpeichern.Click
 
        If String.IsNullOrEmpty(txtTerminName.Text) Then      'wird geprüft ob 
        ' das Textfeld leer oder null aufweist
            MsgBox("Name wird benötigt !")              'wenn ja erscheint eine 
            ' Meldung (Messagebox) das ein Name benötigt wird
            Return                                      'Return gibt die 
            ' Anweisung wieder zurück an die Eingabe
        End If
 
        If Bestaetigen("Wollen Sie wirklich Speichern ?") Then
            If TerminID = 0 Then
 
                Dim sql As String
 
                sql = "INSERT INTO Termine(t_datum,t_name,t_ereignis) VALUES (" & _
                  "'" _
                & dtpDatum.Value.ToShortDateString & "','" _
                & txtTerminName.Text & "','" _
                & txtTerminBeschreibung.Text & "')"
 
 
                If SpeichernAendernLoeschen(sql) Then
                    MsgBox("Gespeichert !")
                    Close()
                Else
                    MsgBox("Nicht Gespeichert !")
                End If
            Else
                Dim sql As String
                sql = "UPDATE Termine SET t_datum='" & _
                  dtpDatum.Value.ToShortDateString & "',t_name='" & _
                  txtTerminName.Text & "' ,t_ereignis='" & _
                  txtTerminBeschreibung.Text & "' WHERE ID=" & Val(TerminID)
 
                If SpeichernAendernLoeschen(sql) Then
                    MsgBox("Geändert !")
                    Close()
                Else
                    MsgBox("Nicht Geändert")
                End If
 
            End If
 
        End If
 
    End Sub

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
            Dim Appday As Date
            StartDatum = StartDatum.ToShortDateString
            EndDatum = EndDatum.ToShortDateString
 
            If row("t_datum") >= StartDatum And row("t_datum") <= EndDatum Then
                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

  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

sql = $"select * from Termine where t_datum between" & _
          "'{StartDatum.ToShortDateString}' and '{EndDatum.ToShortDateString}'"

If row("t_datum") >= StartDatum And row("t_datum") <= EndDatum Then

EALA FREYA FRESENA