执行多个命令以更新vb.net

我正在做一个vb项目。在这种情况下，我需要将一些记录保存到一个表中，并在一个事件或单击中更新另一个表中的一些记录。。我就是这样做的

dim simpan as new sqlcommand
conn = New SqlConnection(connectionstring)
conn.Open()
simpan = New SqlCommand()
simpan.Connection = conn
simpan.CommandType = CommandType.Text
simpan.CommandText = "update barang set (nama_barang,harga)values(" & TextBox3.Text & ",'" & TextBox4.Text & "') where kode_barang = '" & TextBox2.Text & "'"
simpan.ExecuteNonQuery()
tampil()
MsgBox("Data Berhasil Diubah", MsgBoxStyle.Information, "Informasi")
conn.Close()

---

但它给出的错误是“（”）附近的语法不正确。我不会出错。请帮助我，你不能像这样使用更新，请像这样更改代码：

 simpan.CommandText = "update barang set nama_barang = '" & TextBox3.Text & "',harga ='" & TextBox4.Text & "' where kode_barang = '" & TextBox2.Text & "'"
 simpan.ExecuteNonQuery()

---

我发现这有几个问题

• update语句中的语法错误（Al-3sli在这一点上击败了我）
• 如果用户在文本框中键入单个引号（例如：单词“was not”），则文本框值将导致问题。
  • 将替换函数添加到每个文本框

    TextBox3.text.replace（“'”，“'”）

    ，该文本框将用两个单记号替换单个记号

---

你也可以考虑使用< /p>但这个命令不适用于这个代码> SimPAN.CurdText =“Update JADWAL设置WAKTUTION预订=”和DATETMEXPACER1.文本“&”，StasuSuffSt= =“Text Boxx4.Text”和“IDIN PNEYWAW=”和“Text BoX3..Text &‘’’SimPial.ExcExutnOnQuices（）/代码>我没有得到我出错的地方..错误是“无效的列名'OK'…它意味着textbox4.text@Al-3sli我以前编辑过我的评论..很抱歉，迟到了：）@Al-3sli必须为textbox4添加'，例如

””&textbox4.text&“