VB Code:
....[ If Not CheckPass_Rs.BOF Then
CheckPass_Rs.MoveFirst
str_Password = CheckPass_Rs!Password
If Trim$(UCase$(Old_Tbox.Text)) <> str_Password Then
MsgBox "Invalid old password"
Old_Tbox.Text = ""
NewPass_Tbox.Text = ""
Verify_Tbox.Text = ""
Old_Tbox.SetFocus
Else
[I]oSQL[/I].Execute "UPDATE UserMaster SET Password = '" & UCase$(NewPass_Tbox.Text) & "' where User_Id = '" & UCase$(UID_Tbox.Text) & "'"
Call MsgBox("You have successfully chosen a new password", vbInformation, "Password Changed")
End If
End If