1. strSelect = "Select lastname, firstname, midinitial AS NameFull, casefind from"  
2. strSelect = strSelect & " (SELECT tabVeteran.lastname, tabVeteran.firstname, tabVeteran.midinitial, tabVeteran.casefind"  
3. strSelect = strSelect & " FROM tabVeteran"  
4. strSelect = strSelect & " WHERE tabVeteran.lastname Like " & strSearch  
5. strSelect = strSelect & " UNION"  
6. strSelect = strSelect & " SELECT tabVeteran.lastname, tabVeteran.firstname, tabVeteran.midinitial, tabVeteran.casefind"  
7. strSelect = strSelect & " FROM tabVeteran"  
8. strSelect = strSelect & " WHERE tabVeteran.firstname Like " & strSearch & ") as t ORDER BY NameFull ASC"  

Here you go. the change is at the line 08