Erreur 53 : Fichier intriuvable

Bonjour,

N.B :
L'environnement de travail est VB6, avec Access

Circonstance :
Suite à une fausse manipulation, un chemin pour l'affichage de photo a été enregistré dans la BD. et le Fichier enregistré dans un dossier a été supprimé peut être sans que le chemin le serait aussi (problème de code corrigé après)

Problème :
lors de l'exécution de la suppression des fichiers ( code ci dessous ), le chemin non supprimé ne trouve pas le fichier dans le dossier. Suite de quoi un message apparaissait :
erreur n° 53 , Fichier introuvable.

Demande :
Un code ou astuce pour ignorer cette erreur

le code :

For N = PN To DN + 1 Step 1

If N > DN Then
Exit For
Exit Sub
End If

SQLs = "select * from TableInfos where (NOrdre=" & CInt(N) & ")"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

If RS.EOF Then
GoTo AuSuivant:
Exit Sub
ElseIf RS![NOrdre] = N Then
Ste = RS![Societe]

    If Ste <> VarSociete Then
    GoTo Pass:
    Exit Sub
    End If
    
If RS![Photo] <> "" Then
TxtPhoto = RS![Photo]
GoTo Pass1:
Exit Sub
ElseIf RS![Photo] = "" Then
GoTo Pass2:
Exit Sub
End If

End If
RS.Close


Pass1:


On Error GoTo nnn:

If TxtPhoto = "C:\InstMezAppSSalaires\MezAppSSalaires\Photos\homme.jpg" Then
GoTo Pass3:
Exit Sub
ElseIf TxtPhoto <> "C:\InstMezAppSSalaires\MezAppSSalaires\Photos\homme.jpg" Then
Kill TxtPhoto
GoTo Pass4:
Exit Sub
End If

nnn:




Pass4:
Pass3:
Pass2:
Pass:
AuSuivant:
Next N 

Merci d'avance pour votre aide