Add item to current date

[Bebe]

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