VB Code:
Dim cmdView As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select purchase_date,credit_card_no,vendor_name,transaction_amt,sales_tax_amt,status_ind from pcms.pcms_pcard_transaction_header where purchase_date between TO_DATE('" & tranPeriod & "','mm/dd/yyyy') and TO_DATE('" & tranPeriodEnd & "','mm/dd/yyyy') ", objCon)
ds = New DataSet()
cmdView.Fill(ds, "cards")
Dim oRpt As CrystalReport1 ' create new report object
[b]oRpt.SetDataSource(ds)[/b]
CrystalReportViewer1.ReportSource = oRpt