主题：求助更新代码

为什么以下代码运行报错列名无效，是什么原因。检查SQL数据库列名没错呀，代码执行却总报错

 

dim con as string="ABC"
with tables("导航_trv")
    if .count>0 then
        for each r as row in .rows
            Dim cmd As New SQLCommand
            cmd.connectionname=con
            cmd.CommandText ="update _setgrid set 表名='" & r("表名") & "',列名='" & r("列名") & "',列宽=" & r("列宽") & ",隐藏=" & r("隐藏") & ",操作员='" & r("操作员") & "',操作时间='" & r("操作时间") & "' where _identify=" & r("_identify")
            cmd.ExecuteNonQuery()
       next

        messagebox.show("提交数据完成!","提示")
    else
        messagebox.show("当前表无数据可提交!","提示")
    end if
end with

 

以下报错截图：

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