主题：成绩班级排名执行报错？

我家里的电脑上执行这个代码没问题，怎么在办公室电脑中执行就报错？不知代码是哪里定错了，请指教，谢谢！
此主题相关图片如下：报错.jpg

班级排名代码：Tables("成绩库").StopRedraw
e.Form.Controls("Label1").text="排名中,请稍候..."
Dim Time,Time1 As Date
Time = Date.now
Dim pm As List(Of String()) = CurrentTable.DataTable.GetUniqueValues("","单位代码","班")
Dim pmc As Integer
Dim ColNames() As String = {"总分"}
Dim TotalName As String
CurrentTable.Redraw = False
For Each ColName As String In ColNames
    For i As Integer = 0 To pm.Count -1
        If pm(i)(0) = "" Then
            Continue For
        End If
        Dim drs As List(Of DataRow) = CurrentTable.DataTable.Select("[单位代码] = '" & pm(i)(0) & "'And [班] = " & pm(i)(1), ColName & " DESC")
        pmc = 0
        TotalName = ColName & "班名"
        For n As Integer = 0 To drs.Count - 1
            pmc = pmc +1
            If n > 0 AndAlso drs(n)(ColName ) = drs(n-1)(ColName) Then
                drs(n)(TotalName ) = drs(n-1)(TotalName )
            Else
                drs(n)(TotalName ) = pmc
            End If
        Next
    Next
Next
CurrentTable.Redraw = True
Time1 = Date.Now
e.Form.Controls("Label1").text="耗时 " & (Time1-Time).TotalSeconds & " 秒"