错误的报告源显示在crystalreportviewer VB.net上

Question

我尝试使用查询从我的数据库动态获取数据源，但即使查询和数据源正确，它也会显示错误的报告源。

Public DA As New SqlDataAdapter
Public DS As DataSet

Public Function executeViaSQL(ByVal sqlquery As String) As DataSet
    DS = New DataSet
    DA = New SqlDataAdapter(sqlquery, Conn)
    DA.Fill(DS, 0)

    Return DS
End Function

Private Sub formload
     Dim RS As New rptDaily
     DS = New DataSet
     DS = executeViaSQL(query) 'query is public and has a stored query
     RS.Load()
     RS.SetDataSource(DS.Tables(0))
     CrystalReportViewer1.ReportSource = RS
End Sub

即使我已将报告源设置为数据库中的数据集，报告仍会显示默认报告源。

其他信息，rptDaily.rpt属性：
构建操作：嵌入式资源
复制到输出目录：不要复制
自定义工具： CrystalDecisions.VSDesigner.CodeGen.ReportCodeGenerator
自定义命名空间：空白

我认为问题是reportsource正在从我的数据库而不是数据集中提取数据。但仍然不知道如何解决这个问题。