Hi,
you need to add image column (byte[]) to the table, add the column to report, (not Picture control, but field) :
data.Tables(0).Columns.Add("img", System.Type.GetType("System.Byte[]"))
Dim cr As New CrystalReport1()
cr.SetDataSource(data.Tables(0))
CrystalReportViewer1.ReportSource = cr
Where "data" is your dataset.