关于组合框中加数据的问题

cofe2000

在excel中可以这么做的，access中要在组合框中加入2001、2002、2003、2004、2005该怎么办呢？要根据年份的增长而增长的

Private Sub Form_Load()

For i = 2001 To Year(Date)

Me.组合框.additem i

Next

End Sub

cg1

DIM STR1 AS STRING

FOR I=1 TO 20

STR1= STR1 & ";" I

NEXT

组合框.ROWSOURCE=STR1

用 ADDITEM 方法完全可以，只是 ACCESS XP 以上，2000老报错，但是帮助里面写了可以得

cofe2000

多谢版主指教