主题：检验上述代码错哪儿了

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {xssj}"
dt = cmd.ExecuteReader()
for i as Integer = 1 to dt.datarows.count - 1
    for c as Integer = 1to dt.datacols.count - 1
        if DataTables("评分标准").datarows(i)(c) =  dt.datarows(i)(c) then
            output.show("有错误")
        end if
    next
next
检验上述代码错哪儿了

for c as Integer = 1to dt.datacols.count - 1
连在一起了。

其他错误看不出来。系统报什么错？

也许是 DataTables("评分标准")的行数不够造成的。