主题：[求助]代码执行怎么报错？

此主题相关图片如下：报错.jpg

这句代码有误吗？如何修改请指教。谢谢!

Dim Km3s() As String = {"语文","数学","英语","物理","化学","生物","政治","历史","地理"}
      For Each Km3 As String In Km3s
      dr(Km3 & "%") = DataTables(dw & Wj & "分科目统计").Compute("Sum("& Km3 & "%" &")", "项目 = '0' And [单位] = '" & dr("单位") & "' and  [班] = '" & dr("班") & "'")
Next

要求：求Km3%列中单位=单位，班=班，项目=0的和