Add item to current date

How would I get the below code to go from 1994 to the current date. I tried to use Date but I get an overflow error message?


Private Sub Form_Load()
Dim i As Integer
For i = 1 To 12
cboMonth.AddItem Format(i & "/" & i, "mmmm")
Next i

For i = 0 To 10
cboYear.AddItem 1994 + i
Next i


End Sub

Code:

---

Private Sub Form_Load()

      Dim intCount As Integer
     
      For intCount = 1994 To Year(Now)
            cboYear.AddItem intCount
      Next

End Sub

---

thanks worked like a charm!!!