'*** Werte aus Recordset auslesen und anzeigen
'*** Keine Werte kein Graph anzeigen
        If oRSDayGlucose.EOF = True And oRSDayGlucose.BOF = True Then
            oRSDayGlucose.Close
            Set oRSDayGlucose = Nothing
            sevGraphGlucoseDay.Clear
            sevGraphGlucoseDay.Caption = sDate
            sevGraphGlucoseDay.Refresh
            Exit Sub
        Else
            oRSDayGlucose.MoveFirst
        End If
'*** Überschrift
        .Caption = oRSDayGlucose("vDate")
        .HeaderFont.Size = 8
        .HeaderFont.Bold = True
        For i = 1 To nCount
            nValue = oRSDayGlucose("Value")
            sValue = oRSDayGlucose("vDate")
'*** Text für Legende
            .Data(i).Text = ""
'*** dazugehöriger Wert
            .Data(i).Value = nValue
            oRSDayGlucose.MoveNext
        Next i
'*** Fußzeile
          .Footer = ""
'*** autom. Neuzeichnen einschalten
        .LockUpdate False
'*** Graph anzeigen
        .Refresh