Dim drs As List(Of DataRow) = DataTables(Vars("tjmc")).Select("[班级] = " & bj,hm & "_分值 DESC")
改成
Dim drs As List(Of DataRow) = DataTables(Vars("tjmc")).Select("[班级] = '" & bj & "'",hm & "_分值 DESC")