اتمنى مساعدتي

[Bassam-1992]

السلام عليكم ورحمة الله وبركاته 

اريد ان اعمل برنامج يوجد به بعض الاسئلة ولا يمكن الدخول الى البرنامج الى بصلاحيات معينة 

هذا الكود هل يوجد به خطأ ؟ 

Private Sub Command1_Click()
If IsNull(Me.txtUsername) Then

        MsgBox "Please enter Username", vbInformation, "Username Required"
        
ElseIf IsNull(Me.txtPassword) Then

        MsgBox "Please enter Password", vbInformation, "Password Required"
Else

If Nz(DLookup("Password", "UserT", "Username = ' " & Me.txtUsername & " ' "), "Password") = Me.txtPassword Then

        MsgBox "Welcome to KEP", vbInformation, "Access Allowed"
        DoCmd.OpenForm "Form1"
        DoCmd.Close
        
        
Else

        MsgBox " Sorry .. wrong Username or Password", vbExclamation, "Access Denied"
        
End If
End If
End Sub