将用于访问查询的字段作为数组传递给模块函数

Question

我正在尝试在模块中编写一个函数，我们从传递给它的MS ACCESS查询中获取一个字段，并将该字段的值返回到Query中的另一个字段。

我在模块中编写的代码如下所示。

    Public Function YearAmps(ByRef array1() As Double)

    Dim array2(0 To UBound(array1())) As Double

    Dim I

    For I = 0 To UBound(array2())
        array2(I) = array1(I)

    Next I

    YearAmps = array2

End Function

当我在查询字段中放入以下内容时：YearAmps（[SN]），其中YearAmps是我正在调用的函数，而SN是我传递给函数并运行代码的字段，我收到错误。

有谁知道我哪里出错了。可以将Query中的字段作为数组中的数组传递，然后返回该数组吗？

非常感谢任何帮助。