Обновление базы данных доступа с VB 2010

Question

Этот код не выдает ошибку, но не работает.

Любая помощь будет приветствоваться!

Я программист VB6, мигрирующий на .Net

Другой кодУ меня работает, чтобы добавлять и удалять записи, а не обновлять их ...

Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim cmdUpdate As New OleDbCommand

    provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="

    myConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                Chr(34) & sAppData & "\Data.mdb" & Chr(34) & _
                ";Persist Security Info=True;Jet OLEDB:Database Password=1"
    myConnection.Open()

    Dim str As String
    str = "update Data set ([1], [2], [3], [4]) values (?, ?, ?,?)"
    Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
    cmd.Parameters.Add(New OleDbParameter("1", CType(TextBox2.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("2", CType(txtDesc.Text, String)))
    cmd.Parameters.Add(New OleDbParameter("3", CType(TextBox3.Text, String)))
    Dim cbState As String = ""

    If CheckBox1.Checked = True Then
        cbState = "1"
    Else
        cbState = "0"
    End If

    cmd.Parameters.Add(New OleDbParameter("4", CType(cbState, String)))
    Try
        cmd.ExecuteNonQuery()
        cmd.Dispose()
        myConnection.Close()
        Me.Close()
        Exit Sub
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub