sql语句调用自定义函数，出现错误
个人所得税自定义函数为：Public Function grSds(Str1 As Double) As Double
On Error GoTo errorer
Dim Abc As Single
Abc = Str1 - 2000
Select Case Abc
Case Is <= 0
Abc = 0
Case Is <= 500
Abc = Abc * 5 / 100
Case Is <= 2000
Abc = Abc * 10 / 100 - 25
Case Is <= 5000
Abc = Abc * 15 / 100 - 125
Case Is <= 20000
Abc = Abc * 20 / 100 - 375
Case Is <= 40000
Abc = Abc * 25 / 100 - 1375
Case Is <= 60000
Abc = Abc * 30 / 100 - 3375
Case Is <= 80000
Abc = Abc * 35 / 100 - 6375
Case Is <= 100000
Abc = Abc * 40 / 100 - 10375
Case Is > 100000
Abc = Abc * 45 / 100 - 15375
End Select
grSds = Round(Abc, 2)
errorer:
Exit Function
End Function
sql语句为：
sql = "INSERT INTO 工资发放 ( 个人编号, 部门, 班别, 姓名, 补贴金额, 全勤奖, 职能, 职务, 工龄, 其他, 补助金, 应发合计, 税金, 养老金, 医保金, 失保, 公积金, 工会费, 应扣合计, 实发合计) SELECT 基础档案.个人编号, 基础档案.部门, 基础档案.班别, 基础档案.姓名, 工资管理.补贴金额, 工资管理.全勤奖, 工资管理.职能, 工资管理.职务, 工资管理.工龄, 工资管理.其他, 工资管理.补助金, ([补贴金额]+[全勤奖]+[职能]+[职务]+[工龄]+[其他]+[补助金]) AS 应发合计, grSds([应发合计]),2) AS 税金, 工资管理.养老金, 工资管理.医保金, 工资管理.失保, 工资管理.公积金, 工资管理.工会费, ([养老金]+[医保金]+[失保]+[公积金]+[工会费]+[税金]) AS 应扣合计, [应发合计]-[应扣合计] AS 实发合计 FROM (基础档案 INNER JOIN 工资管理 ON 基础档案.个人编号 = 工资管理.个人编号) INNER JOIN Tb_银行账号 ON 基础档案.个人编号 = Tb_银行账号.个人编号 ))"
运行sql语句时，出现错误：实时错误'-2147217900(80040e14)': 'grsds'不是可以识别的函数名。
请问怎么解决这个问题呢？
