كود عدم المساواة بدالة if

السلام عليكم

اليك الكود وفكرته قائمة على قاعدة التحقق يظهر رسالة ترحيب و ينقلك لشاشة اخرى 

Option Compare Database

Private Sub Command0_Click()
username.SetFocus
If username = "admin" And password = "1" Then
MsgBox "ÇÏÇÑÉ ÇáÍÓÇÈÇÊ ÊÑÍÈ Èßã ", vbInformation, "ÇåáÇ æÓåáÇ"
MsgBox "ÈÓã Çááå æÇáÕáÇÉ æÇáÓáÇã Úáì ÑÓæá Çááå", vbInformation, "ÚáÇÁ íÑÍÈ Èßã"
DoCmd.Close
DoCmd.OpenForm "entery"
Else
MsgBox "ÝÖáÇ ÇÚÏ ßÊÇÈÉ ßáãÉ ÇáãÑæÑ - ÔßÑÇ áß "
End If
End Sub

اليك الملف وعليك القيام بالتعديل على الكود كيف شئت من خلال الدخول عليه اتمنى لك الاستفادة ....

login_alaa.rar