Visual Basic - No se refresca imagen en objeto OLE en crystal report 8.5

Tengo un reporte en Crystal report 8.5, en este reporte inserte objeto OLE, el cual está vinculado a una imagen con extensión bmp qué está físicamente en mi máquina. El archivo que contiene la imagen inicialmente está en blanco, al momento de vincular la imagen al objeto en Crystal report le marque la opción link, se supone según estuve leyendo en la ayuda de crystal report y en varios foros de internet que cuando la imagen se actualice en la ruta donde esta almacenada y cargar el reporte, la misma deberia actualizarse en el objeto OLE pero esto no esta pasando. Si alguien tiene una idea de por que puede estar pasando que no se actualice a pesar de que esta linkeada a el archivo?, si abro directo el CR si me carga la imagen del bmp, pero desde VB no

Esta es la seccion de codigo que se utiliza para actualizar la imagen (la misma esta en un control de visual basic tipo image), este codigo es en visual basic 6 hacia crystal report 8.5

DoEvents
SavePicture CodigoBarras.Image, App.path + "\CodigoBarras.bmp"
For VTr% = 1 To 10000
VTi% = DoEvents()
Next VTr%

Esta es la porcion de codigo donde se llama al crystal report desde visual basic 6

grdDatos.Col = 5
rptReporte.Formulas(5) = "Direccion1= '" & grdDatos.text & "'"
rptReporte.Formulas(6) = "Direccion2= '" & VLArreglo(3) & "'"
rptReporte.Formulas(7) = "Celular= '" & VLArreglo(1) & "'"
rptReporte.Formulas(8) = "Telefono= '" & VLArreglo(2) & "'"
grdDatos.Col = 8
rptReporte.Formulas(9) = "NumeroTarjeta= '" & grdDatos.text & "'"
grdDatos.Col = 3
rptReporte.Formulas(10) = "NombreTarjeta= '" & grdDatos.text & "'"
grdDatos.Col = 2
rptReporte.Formulas(11) = "ItemEntrega= '" & grdDatos.text & "'"
rptReporte.Formulas(12) = "RelacionTarjeta= '" & VLArreglo(6) & "'"
rptReporte.ReportFileName = VGPath$ + "\TAR_DEBITO_Acuse.rpt"

rptReporte.Destination = crptToPrinter
rptReporte.WindowWidth = 1000
rptReporte.WindowHeight = 700
rptReporte.Action = 1

• Capture1.zip(80,8 KB)

buenas teng en el mismo inconveniente, alguien sabe que pueda ser.