Help filling report from dataset

[chaguito]

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



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