Access - Imposibilidad de ver imágenes en un Informe

Private Sub RutaFoto_AfterUpdate()

'RutaFoto es un cuadro de texto invisible donde obtengo el número expediente de cada socio.

'El expediente es la clave principal, la traigo al formulario a través de la siguiente búsqueda:

'=DBúsq("[EXPEDIENTE]";"[TB_Control_Aparcamiento]";"APELLIDO_1&'APELLIDO_2=APELLIDO_1.Value&APELLIDO_2.Value")

On Error GoTo sol_err

Dim vNom As String

vNom = Me.RutaFoto.Value

If IsNull(vNom) Then Exit Sub

Dim miRuta As String

miRuta = Application.CurrentProject.Path

miRuta = miRuta & "\Empleados\"

'Empleados es la carpeta de mi disco duro donde están almacenadas las fotos nombradas por 'número de expediente

miRuta = miRuta & vNom & ".jpg"

Me.Foto.Picture = miRuta

'Foto es el nombre que tiene el cuadro de imagen

salgo:

Exit Sub

sol_err:

If Err.Number = 2220 Then

MsgBox "Esta imagen como que no la encuentro", vbInformation, "TE COMUNICO"

Me.RutaFoto.Value = Null

End If

Resume salgo

Me.Refresh

End Sub

Private Sub Detail_Current()

Dim vNom As Variant

Dim miRuta As String

vNom = Me.RutaFoto.Value

If IsNull(vNom) Then

  Me.Foto.Picture = ""

Else

miRuta = Application.CurrentProject.Path & "\Empleados\" & vNom & ".jpg"

    If (Dir(miRuta) = "") Then

     miRuta = Application.CurrentProject.Path & "\Empleados\" & "Empleado" & ".jpg"

     Me.Foto.Picture = miRuta

     Me.Foto.Visible = False

    Else

     Me.Foto.Visible = True

     Me.Foto.Picture = miRuta

    End If

End If

Me.Refresh

End Sub