Private Sub sevMonthView1_MonthChange(ByVal nMonth As Long, ByVal nYear As _
  Long, bCancel As Boolean)
 
  Dim nDay As Long
 
  ors.MoveFirst
  While Not ors.EOF
    With sevMonthView1
      nDay = Day(ors!Datum)
      If  Month(ors!Datum) = nMonth And Year(ors!Datum) = nYear And nDay > 0 Then
        .DayBackColor(nDay) = vbGreen
      End If
    End With
    ors.movenext
  Wend
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de