اخي الكريم جرب بهذه الطريقة
PHP كود :
Dim report As New CrystalReport2
da = New OleDbDataAdapter("select * from items", con)
Dim ds As New DataSet
da.Fill(ds, "items")
report.SetDataSource(ds.Tables(0))
Form2.CrystalReportViewer1.ReportSource = report
Form2.Show()

