lcYear = '' For i = Year(Date()) - 10 To Year(Date()) + 10 lcYear = lcYear + Transform(i) + "," Next lcYear = Left(lcYear,Len(lcYear) - 1) this.RowSource = lcYear this.RowSourceType = 1