Hi,

I have a function (see below):

Private Sub PopulateCboYear()

Dim iYear As Integer

For iYear = 1900 To Year(Now())
cboYear.AddItem (iYear)

Next

End Sub

When I call PopulateCboYear, 4-digit years are populated to a combo box on the main form. The code works perfect until I tested it in Access 2000.

Is there anyway to modify the function so that it will work in Access 2000 or above?

Thanks a bunch!