如何在查询结果里添加一列序号

在做追加查询时，缺少序号失败，为此需要在查询结果里添加一列序号，

在模块中，编写数组函数实现此功能。

功能是：序号起始号是追加查询目的表的序号+1，按照查询结果的记录数计算终止号。将序号数组添加到查询结果中。

模块设计发现：

Public Function id() As Integer ‘查询里字段调用的添加序号函数’’
Dim i() As Integer
x = 2 ‘添加3个记录
ReDim i(0 To x) As Integer
Dim sum As Integer
sum = 100 “序号起始号为100
For a = 0 To x
sum = sum + 1
i(a) = sum
id = i(a)
Next a
End Function
希望结果是101,102,103

但查询运行结果是103

请问是什么情况？