Crystal Reports VsS 2008

Private Sub Form1_Load(ByVal sender As System.Object, _
                       ByVal e As System.EventArgs) Handles MyBase.Load
 
' The following works perfectly. The only problem is that CrystalReportViewer1
'     uses a Group #1 Name (Group on schDate) yet it displays one day less 
'     than what is actually in the database. Ex. #May 28, 2012# displays as
'     #May 27, 2012#
'
'     Displaying Group #1 Name (schDate) and the schDate field beside one another
'     on the report, I get #May 27, 2012#, and #May 28, 2012# in each field
'     respectively. The solution was simple. Delete the Group #1 Name from the 
'     report and use schDate field in its place. The report still groups by
'     Group #1 Name but doesn't display it.

' Would still like to know why it does this though

        Dim db As TM_SchoolDataContext = New TM_SchoolDataContext
        Dim ds As New ReportDataSet 'the report I created

        Dim t As DataTable = ds.TmsSchedule 'Data table 1
        Dim s As DataTable = ds.School      'Data table 2 
        Dim sc = From tms In db.TmsSchedules _
                 Join sch In db.Schools On sch.SchoolDate Equals tms.schDate _
                 Where tms.schDate >= firstDate And tms.schDate <= lastDate _
                 Select tms.schDate, tms.schHlights, tms.schT1, tms.schT2, _
                        tms.schT3, tms.TMSReview, _
                        sch.SchoolDate, sch.HLights, sch.T1, sch.T2, sch.T3
 
        Dim r As DataRow
        Dim rs As DataRow
 
        For Each dr In sc
            r = t.NewRow()    'Start a new DataRow in ds.TmsSchedule
            r("schDate") = dr.schDate
            r("schHLights") = dr.schHlights
            r("schT1") = dr.schT1
            r("schT2") = dr.schT2
            r("schT3") = dr.schT3
            r("TmsReview") = dr.TMSReview
 
            rs = s.NewRow()
            rs("SchoolDate") = dr.SchoolDate
            rs("HLights") = dr.HLights
            rs("T1") = dr.T1
            rs("T2") = dr.T2
            rs("T3") = dr.T3
            t.Rows.Add(r)
            s.Rows.Add(rs)
        Next
 
        Dim objRpt As New rptSchoolReport
        objRpt.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = objRpt
        CrystalReportViewer1.Refresh()
    End Sub

SELECT name,id,dt_loss
  FROM [trial_Data]
  where dt_loss ='2012-03-01' and dt_loss='2012-03-06'
group by name,id,dt_loss

SELECT  name,id,dt_loss
  FROM [trial_Data]
  where dt_loss between '2012-03-01' and '2012-03-06'
group by name,id,dt_loss