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