Dim nDay As Long
 
While Not ors.EOF
  With sevMonthView1
    nDay = Day(ors!Datum)
    If nDay > 0 Then .DayBackColor(nDay) = vbGreen
  End With
  ors.movenext
Wend

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de