主题：请各位师傅们帮我看一下代码错在哪儿？

出错代码如下：

Dim x As String = Tables("payInfo").current("id")

Dim y As String = Tables("payInfo").current("sch")

Dim z As String = Tables("payInfo").current("clas")

Tables("CC收费系统_query").Fill("select sch as 校区, clas as 班级, freq as 每周课次, numWkOff as 请假周数, balance as 对应金额, dateLeave as 请假日期, refGen as 登记单号 from {wAb} where id = '"& x &"' and sch = '"& y &"' and clas = '"& z &"'", "test", True)

Tables("CC收费系统_query").SetColVisibleWidth("校区|57|班级|57|每周课次|57|请假周数|57|对应金额|57|请假日期|69|登记单号|66")

错误描述：

当我在SQL语句里加入第三个条件（也就是where后面的clas = '"& z &"')后，程序出错

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

请师傅们帮我看一下错在哪里！

谢谢don and lsy！