cry

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportAppServer.CrystalReportDataRowView

''''''Add to button click or something

Dim cr As New CrystalReport1
cr.SetParameterValue("0", "C:\newimage.jpg") ''' -- Note , "0" is the parameter field name we created before and second param of SetParameterValue is the location + new image  you set to replace the old one

' For crystal viewer not to ask you to specify the parameter in a pop up box, you need to do:
Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim paramField As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()

paramField.ParameterFieldName = "0"  ' again the parameter field name we created
discreteVal.Value = "C:\newimage.jpg"   ' once more the new image name and location
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)

CrystalReportViewer1.ParameterFieldInfo = paramFields

CrystalReportViewer1.Refresh()
CrystalReportViewer1.ReportSource = cr