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
CrystalReportViewer1.ReportSource = objRpt
Thanks for help everyone. I still learned a few points from you all.