Dim i As Long
 
 While Not ors.EOF
burlaub = ors!datum
  With sevMonthView1
    ' Alle Tage des Monats durchlaufen
    For i = 1 To sevTextBox.MaxDays(nMonth, nYear)
      ' Urlaubstag?
      If bUrlaub(nMonth, nYear, i) Then
        .DayBackColor = vbGreen
      End If
    Next i
 
  End With
ors.movenext
wend