VB.net+Access做简单的程序，数据库读取没有问题，但是update时候就不成功

用VB.net+Access做简单的程序，数据库读取没有问题，但是update时候就不成功，请教下是什么原因，代码如下：

```vb.net

 Private Sub ButtonOK_Click(sender As Object, e As EventArgs) Handles ButtonOK.Click
        Try
            ObjConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Resources\DatabaseZuoye.mdb") '链接数据库
            ObjConn.Open()
            Dim SQLstring As String = "update ZuoyeData set IFFocusOn='是' ,IFRenyuanOK='" & ComboBoxRenyuan.Text & "', IFhuanjingOK='" & ComboBoxHuanjing.Text & "',IFLingbao='" & ComboBoxLingbao.Text & "', FocusList='" & RichTextBoxGuanzhuxiang.Text & "', Quyuzhichiren='" & TextBoxZhichengren.Text & "', Guanzhudu=" & ComboBoxGuanzhudu.Text & " where ID=" & LabelXuhao.Text
            'Dim SQLstring As String = "delete from ZuoyeData  where ID=" & LabelXuhao.Text
            MsgBox(SQLstring)
            Dim objComm As New OleDb.OleDbCommand(SQLstring, ObjConn)
            objDa.SelectCommand = New OleDbCommand(SQLstring, ObjConn)
            objDa.SelectCommand.ExecuteNonQuery()
            MsgBox(objDa.SelectCommand.ExecuteNonQuery())                '这里反馈结果还为1，真是奇怪，应该成功了确没有成功
            ObjConn.Close()
        Catch ex As Exception
            MsgBox(ex.Message.ToString)

```

• 文章：VB.NET 操作Access数据库增删改数据 中也许有你想要的答案，请看下吧

尝试输出你的sql语句，然后放到去access里运行看能不能update成功。