Help filling report from dataset

Hi all....I am trying to fill a report from a specified dataset. While debugging it gets the 77 rows but when creating the report it does not show nothing.

Please check my code

VB Code:

Private Sub Report1()
 
        'RETRIEVE DATA FROM DATABASE
 
        Dim da As OleDb.OleDbDataAdapter
        Dim cmd As OleDb.OleDbCommand
        Dim dt As DataTable
        Dim dr As DataRow
        Dim ds As New DataSet
        ds.ReadXmlSchema(Server.MapPath("Dataset1.xsd"))
 
        Dim objconn As New OleDb.OleDbConnection(strconn)
        objconn.Open()
 
        cmd = New OleDb.OleDbCommand("Select * from Products")
        cmd.Connection = objconn
 
        da = New OleDb.OleDbDataAdapter(cmd)
 
        da.Fill(ds, "Report")
 
        objconn.Close()
 
 
        Dim crReportDocument1 As New ReportDocument
        Dim crExportOptions As ExportOptions
        Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
 
        Dim Fname As String = Server.MapPath("Reports\T-Report.pdf")
        crReportDocument1.Load(Server.MapPath("CrystalReport1.RPT"))
 
        Dim crTables As Tables
        Dim crTable As Table
 
        crTables = crReportDocument1.Database.Tables
        For Each crTable In crTables
            crTable.SetDataSource(ds.Tables.Item(crTable.Name))
        Next
 
 
        'INITIALIZE EXPORT OPTIONS |
        crDiskFileDestinationOptions = New DiskFileDestinationOptions
        crDiskFileDestinationOptions.DiskFileName = Fname
        crExportOptions = crReportDocument1.ExportOptions
 
        With crExportOptions
            .DestinationOptions = crDiskFileDestinationOptions
            .ExportDestinationType = .ExportDestinationType.DiskFile
            .ExportFormatType = .ExportFormatType.PortableDocFormat
        End With
 
        'EXPORT TO PDF
        crReportDocument1.Export()
 
 
    End Sub

btw...im connecting to the northwind database

Thanks