Dim DA As New SqlDataAdapter("Select * From tb_QueryInvioce", CN)
Dim DS As New DataSet
DA.Fill(DS, "Table1")
Dim rtp As New CrystalReport1
rpt.Database.Tables(0).SetDataSource(DS.Tables("Table1"))
Me.CrystalReportViewer1.ReportSource = rpt
Me.CrystalReportViewer1.Refresh()