求教，为什么我在 ACCESS 中使用自定义函数会提示“表达式中函数未定义”呢？

我这里有一个报表需求，需要用 access 算出中位数，不过 access 并没有原生提供 median 函数，所以我就找了一个用 VB 实现的自定义函数，出处是这里
Stack Overflow

Function fMedian(SQLOrTable, GroupFieldName, GroupFieldValue, MedianFieldName)
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs1 = db.OpenRecordset(SQLOrTable, dbOpenDynaset)

If IsDate(GroupFieldValue) Then
    GroupFieldValue = "#" & GroupFieldValue & "#"
ElseIf Not IsNumeric(GroupFieldValue) Then
    GroupFieldValue = "'" & Replace(GroupFieldValue, "'", "''") & "'"
End If

rs1.Filter = GroupFieldName & "=" & GroupFieldValue
rs1.Sort = MedianFieldName

Set rs = rs1.OpenRecordset()
rs.Move (rs.RecordCount / 2)
rs.MovePrevious

If rs.RecordCount Mod 2 = 0 Then
    varMedian1 = rs.Fields(MedianFieldName)
    rs.MoveNext
    fMedian = (varMedian1 + rs.Fields(MedianFieldName)) / 2
Else
    fMedian = rs.Fields(MedianFieldName)
End If

End Function

原表的字段如下
|结束时间年月日 |分公司 |计算时长之 First 之合计|状态 1|状态 2|日期|月份|集合|
集合=分公司&状态 1&状态 2&月份，是一个辅助列
想输出的表是这样的
|集合|时效（计算时长之 First 之合计的中位数）|
表达式如下

时效: fMedian("5-8-1 新增放款时效（按分公司）","集合",[集合],"计算时长之 First 之合计")

在 SQL 视图里看的话是这样

SELECT [5-8-1 新增放款各环节时效基础表].集合月,
fMedian("5-8-1 新增放款时效（按分公司）","集合",[集合],"计算时长之 First 之合计") AS 时效
FROM [5-8-1 新增放款各环节时效基础表]
GROUP BY [5-8-1 新增放款各环节时效基础表].集合;

但是每次运行查询的时候 access 都会提示“表达式中'fMedian'函数未定义”，试了好多次也不知道问题在哪里，求指教 /(ㄒoㄒ)/~~