使用vb.net更新访问数据库

Question

Private con As OleDbConnection
Private adapt As OleDbDataAdapter
Private cmd As OleDbCommand

Private Sub RegisterButton_Click(sender As Object, e As EventArgs) Handles RegisterButton.Click
    Dim myqry As String
    con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Users.accdb")
    con.Open()
    myqry = "UPDATE RegisteredUsers SET UserName=?, Password=?, RetypePassword=? WHERE Organisation=?"
    cmd = New OleDbCommand(myqry, con)
    cmd.Parameters.AddWithValue("?", UserNameTextBox.Text)
    cmd.Parameters.AddWithValue("?", PasswordTextBox.Text)
    cmd.Parameters.AddWithValue("?", RePassTextBox.Text)
    cmd.Parameters.AddWithValue("?", OrganizationTextBox.Text)
    cmd.ExecuteNonQuery()
    con.Close()
    MsgBox("Thank You!!")
    Login_Form.Show()



End Sub

我可以看到msg框并成功打开登录表单，但输入的值不会在提供连接的访问​​文件中添加/更新。