Thank you for your reply, Wayne.
But, if I read Jon K's code right, the recordset rstList in the sample
' open distinct list of exam date, session and student id as a recordset.
SQL = "SELECT [ExamDate], [Session], [StudentID], " & _
" Sum([tblExams].[Duration])+(Count(*)-1)*#0:5# as...