Change
CurrentDb.Execute "UPDATE Users SET [Password] = txtNewPassword.Value WHERE [Login] = txtUsername.Value"
To
CurrentDb.Execute "UPDATE Users SET [Password] = txtNewPassword.Value WHERE [Login] = '" & txtUsername & "'"