各加一个空格即可解决
If Me.Password & " " = DLookup("[Password]", "Users", "[UserName] = '" & Me.UserName & "'") & " " then