你【学校代码】不是字符列的话,请改成
Dim SS1 As Integer = DataTables("学生信息表").sqlCompute("Count(学校代码)","学校代码 = " & xxdm & "")