Have following. Getting error: The report has no tables. There are rows in my data set.

Private Sub DisplayReport()   

         Dim myDataSet As Data.DataSet = Session("DiaryDataSet")   

        Dim myCrystalReport As New ReportDocument   

         Try  

           Dim myPath As String = (Server.MapPath("DisplayReport.rpt"))   

            myCrystalReport.Load(myPath)   

            myCrystalReport.SetDataSource(myDataSet.Tables("DiaryDataTable"))   

            CrystalReportViewer1.ReportSource = myCrystalReport   

         Catch ex As Exception   

            Dim ErrorString As String = ex.ToString   

         End Try  

 End Sub