Vincular 2 fotos en un formulario

Hola de nuevo.
Tengo en un formulario este código.
Tengo un campo de imagen e imagen2 que vinculan una foto, ya que si no está en una carpeta esta en otra.
Y ahora otro campo imagen3 que quiero que vinculo otra foto, que no está en la misma carpeta que las anteriores.
Todo va bien pero el primer registro aun teniendo foto en imagen, en imagen2 y en imagen3 solo actualiza el de la imagen3, en el resto de los demás registros no da ese error.
Private Sub Form_Current()
Dim Ruta As String
Ruta = CurrentProject.Path
If Not IsNull(Me.Imagen) And Not IsNull(Me.Imagen3) Then
    If (Dir(Ruta & "\Accesorios\" & Me.Imagen3)) <> "" Then
        Me.Imagen66.Picture = Ruta & "\fotos1\" & Me.Imagen
        Me.Imagen77.Picture = Ruta & "\Accesorios\" & Me.Imagen3
    Else
        Me.Imagen66.Picture = Ruta & "\fotos1\" & Me.Imagen
        Me.Imagen77.Picture = Ruta & "\fotos1\3.jpg"
        Exit Sub
    End If
    If (Dir(Ruta & "\fotos2\" & Me.Imagen2)) <> "" Then
        Me.Imagen66.Picture = Ruta & "\fotos2\" & Me.Imagen2   
Exit Sub
End If
        Me.Imagen66.Picture = Ruta & "\fotos1\1.jpg"
ElseIf Not IsNull(Me.Imagen) Then
If (Dir(Ruta & "\fotos1\" & Me.Imagen)) <> "" Then
        Me.Imagen66.Picture = Ruta & "\fotos1\" & Me.Imagen
        Me.Imagen77.Picture = Ruta & "\fotos1\3.jpg"
        Exit Sub
    End If
If (Dir(Ruta & "\fotos2\" & Me.Imagen2)) <> "" Then
        Me.Imagen66.Picture = Ruta & "\fotos2\" & Me.Imagen2
        Exit Sub
End If     
Me.Imagen66.Picture = Ruta & "\fotos1\1.jpg"
End If
End Sub
Gracias.