[5分]按照时间累计查询收入

您好，我参考建立新的查询后出现余额列错误，查询代码如下，请问可能是哪里有问题呢，这个查询文件时在盟威 Access 快速开发平台创建的？

查询文件代码如下：

SELECT 历年税收明细查询.纳税人名称, 历年税收明细查询.增值税, 历年税收明细查询.月份, CumulativeAmount([纳税人名称],[月份]) AS 余额, Format([月份],"yyyy\年m\月") AS 日期
FROM 历年税收明细查询
ORDER BY 历年税收明细查询.纳税人名称, 历年税收明细查询.月份;

建立的查询文件运行如下：

建立的模块代码如下：

Option Compare Database

'函数用途： 求累计结余金额

'输入参数： ID      对应查询中当前行ID字段的值
'           strGroup 对应查询中当前行分组的值
'           CumulativeAmount 对应查询中的当前行结余金额的值
'使用注意： 必须以ID字段排升序，否则会出错

 Function CumulativeAmount(ByVal strGroup As String, ID As Long) As Double
'求余额的函数
    Dim Rs As Recordset
    Dim y As Double
    Dim strSQL As String
    Set Rs = New ADODB.Recordset
    Rs.ActiveConnection = CurrentProject.Connection
    strSQL = "Select * FROM 历年税收明细查询 Where 纳税人名称='" & strGroup & "' ORDER BY 纳税人名称,月份"
    Rs.Open strSQL, , adOpenKeyset, adLockOptimistic
    Rs.MoveFirst
    Do Until Rs.EOF
        If ID = Rs!月份 Then
            y = y + Nz(Rs!增值税)
            CumulativeAmount = y
            Exit Do
        ElseIf ID <> Rs!月份 Then
            y = y + Nz(Rs!增值税)
        End If
        Rs.MoveNext
    Loop
    Rs.Close
    Set Rs = Nothing
End Function