Как изменить пароль в ms acees

---

Dim cmd As New OleDbCommand
Dim con As New OleDbConnection
Dim da As New OleDbDataAdapter
If (BunifuTextbox3.text = BunifuTextbox4.text) Then


    Try
        con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Login.accdb")
        con.Open()
        Dim ds As New DataSet
        da = New OleDbDataAdapter("select * from Logintb where Username = '" & (BunifuTextbox1.text) & "' and Pswd = ' " & (BunifuTextbox2.text) & "'", con)
        If da.Fill(ds) Then

            cmd = New OleDbCommand("update Logintb set [Pswd] = '" & BunifuTextbox3.text & "' where Username = '" & BunifuTextbox1.text & "'and Pswd = '" & BunifuTextbox2.text & "'", con)
            cmd.ExecuteNonQuery()
            MessageBox.Show("PASSWORD CHANGE SUCCESSFULLY")
            con.Close()
            Me.Hide()
            Form1.Show()
        Else
            MsgBox("INVALID PASSWORD OR USERNAME")
        End If

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
Else
    MsgBox("NEW AND RETRY PASSWORD IS NOT MATCH")

End If

Что я уже пробовал:

пожалуйста, помогите ему, я пытаюсь исправить (старый пароль) и ввести новый пароль, но он показывает неправильный msgbox..

---