load picture from folder to crystal report based on id filed object

Dim bmp As System.Drawing.Image

With mReport.ReportDefinition.ReportObjects
'this is working alright
    Dim name As CrystalDecisions.CrystalReports.Engine.TextObject
    name = .Item("Text17")
    name.Text = "AAAAAAAA"
'this is not working
    bmp = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & &\Photo\" & .Item("Field3") & " .jpg")
    Dim picture As CrystalDecisions.CrystalReports.Engine.PictureObject
    picture = .Item("Picture3")
    picture = bmp
End With