Attempt to assign data set as datasource for existing report

Question

There must be something stupid I am missing.
1) Created a report with Crystal Reports 2011
2) It queries a table in a SQL 2008 database
3) The internal select statement is
SELECT "CUSTOMER"."rname", "CUSTOMER"."radd", "CUSTOMER"."radd2", "CUSTOMER"."rcity", "CUSTOMER"."rprov", "CUSTOMER"."rpostal", "CUSTOMER"."rcountry"
FROM   "Data"."dbo"."CUSTOMER" "CUSTOMER"
ORDER BY "CUSTOMER"."rname"
4) Now I am attempting to use the report in Visual Basic 2010 but using a data set as the source
5) Following examples I have looked at this is the code
Private Sub CustomerCrystalReport2frm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' Define connection information
        Dim ConnectionInfo As New ConnectionInfo
        ConnectionInfo.ServerName = "TEST7\TEST7"
        ConnectionInfo.DatabaseName = "Data"
        ConnectionInfo.UserID = "Master"
        ConnectionInfo.Password = "MasterPassword"
        ' Load the existing report
        Dim rd As ReportDocument = New ReportDocument
        rd.Load(Application.StartupPath & "\Crystal Reports\DGVCustomerListing.rpt")
        SetDBLogonForReport(ConnectionInfo, rd) ' Set the report table connections
        ' This shows the report has loaded the records using the internal select statement (18305 records)
        Debug.Print(" Report Document Records=" & rd.Rows.Count)
        ' Create the data set with the records I want the report to use
        Dim ReportInfo As DataSet = New DataSet()    ' To hold data to pass to the report
        Dim SQLSelect As String = "select * FROM Data.dbo.Customer where rname LIKE 'z%' order by rname"
        ReportInfo = FillDataSet(SQLSelect, "ReportData")   ' Fill the data set to pass to the report
        ' This shows the data set contains the expected records (57 records)
        Debug.Print(" Data Set Records=" & ReportInfo.Tables("ReportData").Rows.Count)
        ' Change the source of the report
        rd.SetDataSource(ReportInfo)
        ' This changing the source had no effect records still (18305 records)
        Debug.Print(" Report Document Records=" & rd.Rows.Count)
        CrystalReportViewer1.ReportSource = rd  ' Bind report document to crystal report viewer
    End Sub
    Private Sub SetDBLogonForReport(ByVal ConnectionInfo As ConnectionInfo, ByVal ReportDocument As ReportDocument)
        Dim Tables As Tables = ReportDocument.Database.Tables
        For Each table As CrystalDecisions.CrystalReports.Engine.Table In Tables
            Dim TableLogOnInfo As TableLogOnInfo = table.LogOnInfo
            TableLogOnInfo.ConnectionInfo = ConnectionInfo
            table.ApplyLogOnInfo(TableLogOnInfo)
        Next
    End Sub
end Sub
6) The report is appearing in the viewer with 18305 records
Any help would be appreciated

Answer 1

Setting the report table connections caused the report to fill with data.
At this point I seemed unable to reset the datasource.
Also the set data source needed further clearification.
The simplified following code works:
Dim rd As ReportDocument = New ReportDocument
rd.Load(Application.StartupPath & "\Crystal Reports\DGVCustomerListing.rpt")
' Create the data set with the records I want the report to use
Dim ReportInfo As DataSet = New DataSet()    ' To hold data to pass to the report
Dim SQLSelect As String = "select * FROM Data.dbo.Customer where rname LIKE 'z%' order by rname"
ReportInfo = FillDataSet(SQLSelect, "ReportData")   ' Fill the data set to pass to the report
' Change the source of the report
rd.SetDataSource(ReportInfo.Tables("ReportData"))
CrystalReportViewer1.ReportSource = rd  ' Bind report document to crystal report viewer