Dim dt As New DataTable("imEmployees")
dt.Columns.Add(New DataColumn("Photo", GetType(System.Byte())))
dt.Columns.Add("abc")
dsImg.Tables.Add(dt)
Dim path As String = path_Server + "\\pic\\010455002114.jpg"
Dim FilStr As New FileStream(path, FileMode.Open)
Dim BinRed As New BinaryReader(FilStr)
Dim dr As DataRow = dt.NewRow()
dr("Photo") = BinRed.ReadBytes(CInt(BinRed.BaseStream.Length))
dr("abc") = "max"
dsImg.Tables("imEmployees").Rows.Add(dr)
FilStr.Close()
BinRed.Close()
Dim crp As New ECGReport()
crp.SetDataSource(dsImg.Tables("imEmployees"))
CrystalReportViewer1.ReportSource = crp
CrystalReportViewer1.Refresh()