اضافة رسالة تاكيد للكود التالي

If [password] = [n1] And [n2] = [n3] Then
[password] = [n3]
[n1] = ""
[n2] = ""
[n3] = ""
Else
If [password] <> [n1] Then
Ms$ = "كلمة السر القديمة سيتم غلق البرنامج"
Ti$ = "خطا في كلمة السر"
Re = MsgBox(Ms$, 0, Ti$)
DoCmd.Quit
Else
If [n2] <> [n3] Then
Ms$ = "كلمة السر الجديدة غير متطابقتان"
Ti$ = "خطا كلمة السر"
Re = MsgBox(Ms$, 0, Ti$)
Else
End If
End If

End If

الكود بعاليه لتغيير كلمة السر ويعمل ما فيه مشكلة بس حاب اضيف

1- رسالة تاكيد مفادها :       تم تغيير كلمة المرور للمستخدم/ اسم المستخدم  بنجاح

وياخذ الكود اسم المستخدم من حقل اسم المستخدم

وشكرا لكم