Crystal Report Not Showing any Data

My Version : VS2010 script VB.net   Crystal Report 2013

sir ,

I am creating a crystal report using Dataset.   But while running the page the report just shows the filed names not the data in Dataset.  I have tested that the dataset has data in it.

        Dim emp As Double
        Dim connectionstring As String
        Dim connection As SqlConnection
        connectionstring = ConfigurationManager.ConnectionStrings("payrollConnectionString").ConnectionString
       connection = New SqlConnection(connectionstring)
        Dim cmd As New SqlCommand("select * from " & Session("File") & " WHERE eMPNO = " & Session("emp") & "", connection)

        Dim dreader As SqlDataReader
        connection.Open()
        dreader = cmd.ExecuteReader()
        Dim dspayslip As New payslipdataset

        Dim incitem As New payslipdataset.incitemDataTable()

        '        Dim incrow As payslipdataset.incitemRow = ????????????/
        Dim incrow As DataRow = incitem.NewRow()
        While dreader.Read()
            incrow("unit") = IIf(String.IsNullOrEmpty(dreader.Item("unit")), "", dreader.Item("unit"))
            incrow("type") = IIf(String.IsNullOrEmpty(dreader.Item("type")), "", dreader.Item("type"))
            incrow("name") = IIf(String.IsNullOrEmpty(dreader.Item("name")), "", dreader.Item("name"))
            incrow("designat") = IIf(String.IsNullOrEmpty(dreader.Item("designat")), "", dreader.Item("designat"))
            incrow("section") = IIf(String.IsNullOrEmpty(dreader.Item("section")), "", dreader.Item("section"))

        End While

        incitem.Rows.Add(incrow)

        Dim str As String
        If incitem.Rows.Count > 0 Then

            If incitem.Rows.Count > 0 Then
                str = "Dataset table contains data  " & incitem.Rows(0)(5)
                Label1.Text = str
            End If
        Else
            str = "Dataset does not contains data"

        End If
        ' Dim dspayslip As payslipdataset

        Dim payslipreport As New ReportDocument()
        payslipreport.Load(Server.MapPath("payslip.rpt"))
        payslipreport.SetDataSource(dspayslip.Tables("incitem"))
        'payslipreport.SetDatabaseLogon("", "", "sa", "saadmin")
        crpayslip.ReportSource = payslipreport
        crpayslip.HasPrintButton = True
        crpayslip.HasSearchButton = True
        crpayslip.HasToggleGroupTreeButton = False
        'crpayslip.DisplayGroupTree = False
        crpayslip.DataBind()

Pl. Help What to d o