*** Check if the value of the combo is numeric type
lcYearWant = thisform.tyear.value

SELECT Summer.Category, Summer.Date, Student.*;
       FROM Summer ;
       INNER JOIN Student ON  Summer.Code = Student.Code;
       WHERE YEAR(Summer.Date) = m.lcYearWant;
       ORDER BY Summer.Lcode, Summer.Sec;
INTO CURSOR summert