Import Image Jpg dans Formulaire

Bonjour,
j’ai trouver sur le site comment insérer des image JPG sur un formulaire (une réponse de Suskes) elle fonctionne très bien pour ce que j’ai à faire. Par contre j’ai le problème suivant : Si je n’ai que 3 images dans BDD et que mon formulaire à 4 cases il me met une erreur sur l’expression au niveau du numéro de l’image manquante. Il faut savoir que lorsque j’ouvre mon formulaire il n’y aura pas toujours le même nombre d’image Je vous mets en dessous l’événement que j’ai utilisé :

Private Sub Form_Current()
Dim fName As String
fName = Me![Ecusson1]
Me![Image104].Picture = fName
Me![Image104].Visible = True
fName = Me![Ecusson2]
Me![Image108].Picture = fName
Me![Image108].Visible = True
fName = Me![Ecusson3]
Me![Image110].Picture = fName
Me![Image110].Visible = True
End Sub

merci d’avance pour votre aide