How's this?
Select Top 1000000 Case
When tblADusers.Displayname Is Null Or
tblADusers.Displayname = '' Then tblADusers.Userdomain + '\' +
tblADusers.Username
Else tblADusers.Displayname
End As Displayname,
tblADusers.Username,
tblADusers.Userdomain,
tblADusers.Firstname,
tblADusers.Lastname,
tblADusers.Department,
tblADusers.email,
tblADusers.IsEnabled As EnabledInAD,
tblADusers.PasswordNeverExpires,
'usersm.png' As Icon,
tblADusers.Lastchanged
From tblADusers
Where tblADusers.PasswordNeverExpires = 'true'
Order By Displayname,
tblADusers.Userdomain,
tblADusers.Username