Basically the idea is as June said.
The SQL for the items found in the SQL search are saved as rich text and the relevant search words are highlighted as red text with a yellow background using VBA
This is the modified record for the first query in the report shown:
Code:
<div><font color="#1F497D">INSERT INTO LeaversSixthFormStudents ( PupilID, Surname, Forename, </font><font color="#800000"><font style="BACKGROUND-COLOR:#FFFF00"><strong>DOB</strong></font><font color="#1F497D">, [m/f], Yr, TGp, UPN, FormerUPN, DOA, LeavingDate, </font><font color="#800000"><font style="BACKGROUND-COLOR:#FFFF00"><strong>Active</strong></font><font color="#1F497D">, EnrolmentStatus, StudentStatus, OldPupilID, OldFullAdNo, OldImagePath ) SELECT SixthFormStudents.PupilID, SixthFormStudents.Surname, SixthFormStudents.Forename, SixthFormStudents.</font><font color="#800000"><font style="BACKGROUND-COLOR:#FFFF00"><strong>DOB</strong></font><font color="#1F497D">, SixthFormStudents.[m/f], SixthFormStudents.Yr, SixthFormStudents.TGp, SixthFormStudents.UPN, SixthFormStudents.FormerUPN, SixthFormStudents.DOA, SixthFormStudents.LeavingDate, SixthFormStudents.</font><font color="#800000"><font style="BACKGROUND-COLOR:#FFFF00"><strong>Active</strong></font><font color="#1F497D">, SixthFormStudents.EnrolmentStatus, SixthFormStudents.StudentStatus, SixthFormStudents.OldPupilID, SixthFormStudents.OldFullAdNo, SixthFormStudents.OldImagePath FROM PupilData INNER JOIN SixthFormStudents ON PupilData.PupilID = SixthFormStudents.PupilID WHERE (((PupilData.LeavingDate)<=Now()) AND ((PupilData.</font><font color="#800000"><font style="BACKGROUND-COLOR:#FFFF00"><strong>Active</strong></font><font color="#1F497D">)=No));</font></div>