Insertar Imagen en Componente Ole VB 6.0

[chcma]

Buenos días Foreros !!!

Vereis, tengo una pequeña duda con esto de las Imágenes.

Tengo un Control Olé enlazado a un campo de un Data, este objeto Olé, me muestra las imágenes que están insertadas en la BD.

Hasta ahi, todo perfecto.

Pero cuando voy a insertar un dato nuevo, primero intento cargar en el objeto Ole la imagen desde archivo.

Para ello hago lo siguiente:
CDL como ya sabrán es un CommonDialog

On Error GoTo ErrorCommon
CDL.CancelError = True
CDL.InitDir = App.Path
CDL.ShowOpen
MsgBox CDL.FileName
OLE1.SourceDoc CDL.FileName 'También probe con Picture
'OLE1.SourceItem CDL.FileName
ErrorCommon:
If Err.Number <> 32755 Then 'Si el error no es por haber dado a cancelar
MsgBox ("Error: " & Err.Number & vbCrLf & "Descripción: " & Err.Description)
End If

Sin embargo me salta el error del MsgBox con ls siguientes valores en las variables (err.Number=0) (err.Description="")

¿Pueden decirme que tengo que cambiar?

Muchas gracias por adelantado.