The code in the box is the correct code. I didn't copy the code from my app. I typed it in and did it correct.
My datasource is a dataset called rptDataSet with all of the fields defined, but unbound. When I declared the following:
Dim ds As New rptDataSet
That was the Dataset I used, but when I declared objRpt, I set its SetDataSource to rptDataSet instead of ds
Dim objRpt As New rptSchedule
objRpt.SetDataSource(rptDataSet)
objRpt.SetDataSource(ds)
CrystalReportViewer1.ReportSource = objRpt
CrystalReportViewer1.Refresh()
Thanks for help everyone. I still learned a few points from you all.