排名函数有错误。

就你的问题而言,如果仍要沿用模块里的自定义函数Position(),则须对该函数的定义作修改,使其适用于双精度数字,否则将无法正确排名,因为你的表里的成绩涉及到小数,而原函数定义的是long(长整型)的,故障就发生在这里,你只须在模块里找到这一句:

Public Function Position(tblName As String, AccorName As String, AccorValue As _
    Long, Optional DomName As String, Optional DomValue As String) As Integer

改为:

Public Function Position(tblName As String, AccorName As String, AccorValue As _
    Double, Optional DomName As String, Optional DomValue As String) As Integer

应该就可以正常使用了,呵呵