como cargar imagenes en Crystal Report

hola a todos nuevamente bueno a continuacion colocare un codigo ejemplo para crystal reports que nos permite cargar y cambiar imagenes en nuestros reportes
de momento solo pondre la entrada mas tarde colocare la explicacion.

Function CargaReporte() As System.NullReferenceException
Dim DelegateTable As New DataTable("USUARIOS")
Dim DelegateRow As DataRow = Nothing
Dim OnionCount As Integer = 1

DelegateTable.Columns.Add(New DataColumn("NOMBRE", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("USUARIO", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("DEPARTAMENTO", GetType(String)))
DelegateTable.Columns.Add(New DataColumn("blob", GetType(Byte())))

Adapter = New OleDbDataAdapter("EL_QUERY", cnx)
Adapter.Fill(DS, "T_USUARIOS")
cnx.Close()

For Each Filas As DataRow In DS.Tables("T_seg_c_usuarios").Rows
DelegateRow = DelegateTable.NewRow
DelegateRow("Nombre") = Filas("nombre")
DelegateRow("usuario") = Filas("usuario")
DelegateRow("departamento") = Filas("departamento")
If OnionCount <= 5 Then DelegateRow("blob") = ImageToCrystalDefinition("Onion" & OnionCount & ".jpg") OnionCount = OnionCount + 1

ElseIf OnionCount = 6 Then

OnionCount = 1 DelegateRow("blob") = ImageToCrystalDefinition("Onion" & OnionCount & ".jpg")

End If

DelegateTable.Rows.Add(DelegateRow) Next DS.Tables.Add(DelegateTable) DS.WriteXmlSchema(Server.MapPath("Reportes\DataDef\DataMember.xml")) FileName = Server.MapPath("Reportes\imagenesDinamicas.rpt") 
ReportMe.Load(FileName) ReportMe.SetDataSource(DelegateTable) 
CrystalReportViewer1.ReportSource = ReportMe CrystalReportViewer1.DataBind()

CrystalReportViewer1.DisplayToolbar = False

DS.Clear()

End Function

Function ImageToCrystalDefinition(Optional ByVal ImgName As String = "Onion1.jpg") As Byte()
Dim image As Byte() = Nothing
Dim BasicPath As String = Server.MapPath("Reportes\Imagenes")
BasicPath = BasicPath & "\" & ImgName
Dim Fs As New FileStream(BasicPath, FileMode.Open, FileAccess.Read)
Dim br As New BinaryReader(Fs)
image = New Byte(CInt(Fs.Length) - 1) {}

br.Read(image, 0, CInt(Fs.Length))
br.Close()
Fs.Close()
Return image
End Function