I was bored so I made this easier to read:
Private Sub cmdLogin_Click()
Dim login_validation As Variant
login_validation = DLookup("Password", "tblLogin", "Username='" & Nz(txtUsername.Value, "") & "'")
If Nz(login_validation, "") <> Nz([txtPassword].Value, "") Then
MsgBox...