How to change password in 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