VB2008 and Crystal Reports

I have a dataset, in that dataset I have a query:
SELECT ID, Name, Price
FROM tblItems
WHERE (ID = @Param1)

I design the report already using the said dataset. I'm trying to generate the report, but i got an error message that the source of the report is invalid. Here is my code on my btnGenerateReport.

Dim cryRpt As New ReportDocument
cryRpt.Load("location of my.rptfile")

Dim DA As New DataSet1TableAdapters.tblTransactionDetailsTableAdapter
Dim DS As New DataSet1.tblTransactionDetailsDataTable
ReportViewer.CrystalReportViewer1.ReportSource = DA.Fill(DS, txtID.Text)
ReportViewer.CrystalReportViewer1.Refresh()
ReportViewer.Show()


What's wrong with my codes? Please help me. Thanks

"Reportsource" is suppose to be set to the name of the report. Like this

Code:

---

                Dim rpt As New CrystalReport1
                Dim ds as New WaterTablesDataSet
                Dim taU As New WaterTablesDataSetTableAdapters.UsersTableAdapter
                taU.FillByActiveUsers(Me.ds.users)
                rpt.SetDataSource(ds)
                Dim frm As New frmReports
                frm.CrystalReportViewer1.ReportSource = rpt
                frm.Show()

---

Dim DA As New DataSet1TableAdapters.tblTransactionDetailsTableAdapter
Dim DS As New DataSet1.tblTransactionDetailsDataTable
cryRpt.SetDataSource(DA.FillByTransNumber(DS, Val(lblTransactionNo.Text)))

ReportViewer.CrystalReportViewer1.ReportSource = cryRpt
ReportViewer.CrystalReportViewer1.Refresh()
ReportViewer.ShowDialog()

I still have an error, "The data source object is invalid." :(

SOLVED! thanks! :)