عدم ظهور أسم الموظف فى التقرير

انظر هذا الكود

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ds As New DataSet
        Dim txtFROMDate As Date
        Dim txtToDate As Date
        txtFROMDate = Me.DateTimePicker1.Value.ToString("dd/MM/yyyy")
        txtToDate = Me.DateTimePicker2.Value.ToString("dd/MM/yyyy")

        Dim OleDbcmd1 As String = "select * FROM  agent" ' WHERE (date>= @Param1)  AND (date<= @Param2) AND (cod_man = @Param4)"
        Dim OleDbcmd2 As String = "select * FROM  BEEE  WHERE ((DATE_TODAY >=#" & txtFROMDate & "#) AND (DATE_TODAY <=#" & txtToDate & "#)  AND (cod_man = '" & c3.Text & "'))"
        Dim data1 As New OleDbDataAdapter(OleDbcmd1, selectConnection)
        Dim data2 As New OleDbDataAdapter(OleDbcmd2, selectConnection)
        Try
            data1.Fill(ds, "agent")
            data2.Fill(ds, "BEEE")
            Me.Cursor = Cursors.WaitCursor
            Dim y As New Form4
            y.print(ds)
            y.Show()
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

كود شاشة الطباعة

 Public Function print(ByVal ds As DataSet)
        Dim e1 As New CrystalReport1
        e1.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = e1
        Me.CrystalReportViewer1.RefreshReport()
        Return Nothing

تاكد من البيانات في الحقل الثالث انة يوجد بيانات في قاعد البيانات