مشكلة فى مجموعات فى الdata report لا أجد لها حل

التقرير يعمل جيداً من خلال هذا الكود

Call connectDB

ttt = "SELECT PersonalCalendar.FingerPrintID, PersonalCalendar.PersonalCalendarID, PersonalCalendar.PersonalCalendarDate, PersonalCalendar.PersonalCalendarStatus, PersonalCalendar.TimeCome, PersonalCalendar.TimeHome"
ttt = ttt & " ,IIf([TimeCome] Between '" & "09:00" & "' And '" & "09:30" & "','" & "0.5" & "',IIf([TimeCome] Between '" & "09:30" & "' And '" & "11:00" & "','" & "0.75" & "',IIf([TimeCome] Between '" & "11:00" & "' And '" & "18:00" & "','" & "1" & "','" & "0" & "'))) AS Geza, Employee.EmployeeID, Arabic_data.ÇÓã"
ttt = ttt & " FROM Arabic_data INNER JOIN (Employee INNER JOIN PersonalCalendar ON Employee.FingerPrintID = PersonalCalendar.FingerPrintID) ON Arabic_data.FingerPrintID = PersonalCalendar.FingerPrintID"
ttt = ttt & " WHERE (((PersonalCalendar.PersonalCalendarStatus)=0) AND ((PersonalCalendar.TimeCome)> '" & "09:00" & "') AND ((IIf([TimeCome] Between '" & "09:00" & "' And '" & "09:30" & "','" & "0.5" & "',IIf([TimeCome] Between '" & "09:30" & "' And '" & "11:00" & "','" & "0.75" & "',IIf([TimeCome] Between '" & "11:00" & "' And '" & "18:00" & "','" & "1" & "','" & "0" & "'))))>'" & "0" & "'))"
ttt = ttt & " ORDER BY PersonalCalendar.FingerPrintID, PersonalCalendar.PersonalCalendarID;"

rs.Open ttt, conn, adOpenStatic, adLockOptimistic
Set DataReport1.DataSource = rs
DataReport1.Show

بس المشكلة أن الداتا بتظهر أسفل بعضها كالتالى مثلاً:

الاسم	الساعة		  التاريخ		الخصم