vba update 语句的语法错误，有知道问题出在哪里吗，困在这里几天了。

如图所示啊，按照的课程做的，卡壳了。一直检查不出问题所在。有知道的能为在下解下惑吗？不胜感激。

Private Sub 修改项目_Click()

Dim sql As String

If MsgBox("本操作将修改项目编号为<" & 项目编号.Value & ">的项目信息记录！" & vbCrLf & "是否要修改？", vbQuestion + vbYesNo, "修改记录") = vbNo Then Exit Sub

sql = "update 投标台账数据 set " _
    & "登记日期=#" & 登记日期.Value & "#," & "项目名称='" & 项目名称.Value & "'," _
    & "项目业主='" & 项目业主.Value & "'," & "项目投资=" & 项目投资.Value & "," _
    & "项目来源='" & 项目来源.Value & "'," & "项目属地='" & 项目属地.Value & "'," _
    & "项目类型='" & 项目类型.Value & "'," & "招采方式='" & 招采方式.Value & "'," _
    & "项目归属='" & 项目归属.Value & "'," & "项目合作模式='" & 项目合作模式.Value & "'," _
    & "项目目标=' " & 项目目标.Value & "'," & "项目状态='" & 项目状态.Value & "'," _
    & "发布平台='" & 发布平台.Value & "'," & "报名开始日期=#" & 报名开始日期.Value & "#," _
    & "报名截止日期=#" & 报名截止日期.Value & "#," & "开标日期=# " & 开标日期.Value & "#," _
    & "开标时间=#" & 开标时间.Value & "#," & "投标形式='" & 投标形式.Value & "'," _
    & "投标系统='" & 投标系统.Value & "'," & "标书制作人='" & 标书制作人.Value & "'," _
    & "报名状态='" & 报名状态.Value & "'," & "报名费用= " & 报名费用.Value & "," _
    & "是否收回='" & 是否收回.Value & "'," & "配合单位='" & 配合单位.Value & "'," _
    & "投标保证金说明='" & 投标保证金说明.Value & "'," & "投标报价= " & 投标报价.Value & "," _
    & "中标公示='" & 中标公示.Value & "'," & "投标结果='" & 投标结果.Value & "'," _
    & "情况说明='" & 情况说明.Value & "'," & "结算日期=#" & 结算日期.Value & "#," _
    & "资料费用=" & 资料费用.Value & "," & "项目借款=" & 项目借款.Value & "," _
    & "借款说明='" & 借款说明.Value & "'," & "是否还款='" & 是否还款.Value & "'," _
    & "人员提成=" & 人员提成.Value & "," & "彭飞提成=" & 彭飞提成.Value & "," & "备注='" & 备注.Value & "'" _
    & "where 项目编号='" & 项目编号.Value & "'"

Set rs = New ADODB.Recordset
cnn.Execute sql
MsgBox "已成功将项目编号为<" & 项目编号.Value & " >的项目信息记录进行修改!", vbInformation, "修改记录"

Call 查询项目记录
Call 显示项目记录
Call myListview

End Sub

看不清，直接把代码全部码（复制）过来吧，我帮你解决！

set每次你只能设置一个呀！
你直接用
update 表名(字段1,字段2,字段3) values (值1, 值2, 值3) where ...

这样就搞定啊，如果还是不行，具体你把你的代码全部码（复制）过来，看到底哪里哪里出问题了！

set每次只能设置一个
你可以用
update 表名(字段1,字段2,字段3) values (值1, 值2, 值3) where ...
这样写

你这么检查太费劲，你直接打个断点在 set rs 的位置，直接查看 sql 拼接后的内容