主题：红色部分 update语句不执行 麻烦老师帮忙看看

红色部分 update语句不执行  麻烦老师帮忙看看

当前代码如下：

d1.CommandText = "se le ct formid,form,name from SY S _Navigation where ID='" &  e.Values("导航id") & "'"
Dim Values1 = cmd1.ExecuteValues
If Values1.Count > 0 Then

 If Values1("form")=nothing then
  cmd1.CommandText = "up date 文书名称表 SE T 窗体id = " & Values1("formid") & "',导航名 = '" & Values1("name") & "' where 导航id='" &  e.Values("导航id") & "'"
  Else
  cmd1.CommandText = "up date 文书名称表 SE T 窗体id = '" & Values1("form") & "',导航名 = '" & Values1("name") & "' where 导航id='" &  e.Values("导航id") & "'"
 End If

    cmd1.ExecuteNonQuery()
End If