Dear
Create a dataset in your solution and add a table and create the columns as you need inside the data set table.
for eg: Your Datset is MyDataSet and I add a table called table1.
Dim rptviewer As New frmrReportViewer
Dim rptclass As ReportClass
Try
Dim query As String
Dataset DS = New MyDataSet
Dim dt As DataTable
Dim row As DataRow
rptclass = New rptCustomerReport
DS.Clear()
dt = DS.Tables("CUSTOMER")
row = dt.NewRow
row("DATE1") ="Your First Value"
row("DATE2") = "Your second Value"
dt.Rows.Add(row)
rptclass.SetDataSource(DS)
rptviewer.CrystalReportViewer1.ReportSource = rptclass
rptviewer.ShowDialog()
Catch ex As Exception
rptclass.SetDataSource(DS)
rptviewer.CrystalReportViewer1.ReportSource = rptclass
rptviewer.ShowDialog()