仿“月上期余额示例”老是报错

各位老师,过年好。

    最近我仿“月上期余额示例”，把其中材料收去表中“材料ID”字段由文本型改成了长整型，自定义函数代码如下，仅是把带下划线部分作了修改，可是一直报错，要么是报函数K未定义，要么是数值类型不匹配，请老师帮忙看看问题出在哪里：

Public Function k(strCodeID As Long, lngY As Long, lngM As Long) As Long
    Dim strSQL As String
    Dim rs As Object
    Dim cn As Object
   
    Set cn = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
   
    '将材料代码和日期代入到查询条件中去
    strSQL = "SELECT 材料收支表.材料ID, Sum(([进库]-[出库])) AS 库存 " & _
             "FROM 材料收支表 " & _
             "WHERE 材料收支表.日期 < #" & lngM & "/1" & "/" & lngY & "# And 材料ID =" & strCodeID & _
             "GROUP BY 材料收支表.材料ID;"
    rs.Open strSQL, cn, 1
   
    If rs.EOF = True Then Exit Function
   
    k = rs("库存")
 
  
    rs.Close
    Set rs = Nothing
    Set cn = Nothing

End Function

点击下载此附件