following code i have done, but still got error, the error is
Compile Error:- End IF without block if.
Code is
Dim password As String
password = DLookup("UPassword", "Users", "[UserName]='" & Me.UserName.Value & "'")
If password = Me!Upasswordcontrol Then Select Case Me![UserName]...