With oRs 'Recordset
    If .RecordCount Then
      ''lTemp = Year(Date) - Year(.Fields(0).Value)
      lTemp = (Year(Date) * 12) - (Year(.Fields(0).Value) * 12)
    End If
    .Close
  End With
Set oRs = Nothing
DoEvents
 
  With cboMonth 'Combobox füllen
    For i = 0 To lTemp - 1
        .AddItem CStr(i + 1)
    Next
    ''.ListIndex = (i - 1) 'max Monate
    .ListIndex = 0 'min Monate
  End With