Error 53 en tiempo de ejecución. No se ha encontrado el archivo. VB 6.0 Access 2010

Agregué un registro y cuando lo quiero traer a mi formulario me tira el error mencionado arriba...

Este es el código que tengo para traer el registro.

StrBuscaProducto = "SELECT Desc_Prod,Cantidad,Precio_Parcial,Tipo_IVA,IVA_Incluido,FotoProd from PRODUCTOS WHERE COD_Producto ='" & TxtProductos(0).Text & "'"
            Set RstBuscaProducto = New ADODB.Recordset
            RstBuscaProducto.Open StrBuscaProducto, Base, adOpenStatic, adLockOptimistic
            With RstBuscaProducto
                If .BOF = False And .EOF = False Then
                    cmdModificaProd.Enabled = True
                    TxtProductos(1).Text = !Desc_Prod
                    TxtProductos(2).Text = Val(!Cantidad)
                    'Format(CCur(TxtProductos(3).Text), "###,###,###,##0.00")
                    TxtProductos(3).Text = Format(CCur(!Precio_Parcial), "$##,###,###,##0.00")
                    IVA_Incluido = CDbl(!IVA_Incluido)
                    TxtProductos(4).Text = Format(CCur(CDbl(IVA_Incluido)), "$##,###,###,##0.00")
                    ImgProductos.Picture = LoadPicture(Str(!FotoProd))
                    If !Tipo_IVA = 10.5 Then
                        cmbIVA.Text = "10.5"
                        Else
                        cmbIVA.Text = "21.0"
                    End If
                    Else

Lo que me muestra de un lado, y del otro en donde dice ImgPRoductos.Picture = LoadPicture(Str(!FotoProd))  es:

Del lado izquierdo: 173... Del lado derecho: ! FotoProd: -268104...

Del lado izquierdo el control Picture... Del lado derecho el campo de la base de datos.