If Not rs.BOF And Not rs.EOF Then

    For i = LBound(myArray) To UBound(myArray)

        If myArray(i, 1) Then
            rs.Filter = "[StartDate]=" & myArray(i, 0)

            Set rsFiltered = rs.OpenRecordset

            Do While (Not rsFiltered.EOF)

                myArray(i, 2) = myArray(i, 2) & vbNewLine _
                & rsFiltered!StartTime & " - " _
                & rsFiltered!EndTime & " " _
                & rsFiltered!Teacher & " " _
                & rsFiltered!Memo

                rsFiltered.MoveNext
            Loop