Probleme avec InputBox

Bonjour tout le monde.

J'utilise InputBox pour saisir le critére de recherche, quand je clique sur OK, ça marche j'ai un resultat , mais quand je clique sur annuler au lieu de fermer l' InputBox , ça cherche encore (avec un critére de recherche vide) et ça m'affiche le message qui indique que la personne recherché n'existe pas.

Voilà le code que j'ai mis dans le boutan rechercher de mon Form :

Private Sub cmdrech_Click()
On Error Resume Next
Dim a
a = InputBox("Entrez le Code de la personne recherchée :", "Recherche")
Dim t As Boolean
rsoperm.MoveFirst
Do Until rsoperm.EOF = True
Me.MousePointer = vbHourglass

If Trim(UCase(rsoperm!code_operation)) = Trim(UCase(a)) Then
t = True
Exit Do
Else
t = False
End If
rsoperm.MoveNext
Loop
If t = True Then
readrecord
Me.MousePointer = vbDefault
ElseIf t = False Then
MsgBox "La personne  recherchée n'existe pas!!", vbCritical, "Resultat de la recherche"
Me.MousePointer = vbDefault
Else
End If

End Sub

Merci de votre Aide

Merci de vos reponses

J'ai tjrs le meme PB j'ai essayé le code de "econs"
J'ai pas fait  un select from ta table where le code = ce que j'ai rentré parce que c'est la  meme chose que :
Do Until rssn.EOF = True
If Trim(UCase(rssn!num_aut)) = Trim(UCase(a)) Then
...................
Pour la suggestion de "jrivet", ce qui m'intersse c'est de fermer le INPUTBOX aprés avoir cliqué sur Annuler et non pas quand le critére de recherche est vide, merci quand meme de ta reponse.

Oui mon inputbox ne se ferme pas quand je clique sur  le bouton annuler et ce bouton fait le meme travail que le bouton OK c-a-d il cherche ds la table et il m'affiche "enregistrement non trouvé ! "

tu peux me dire pourquoi ?

Merci de ton aide