Boucle if

Bonjour,
j'ai une petite probléme au niveau du test dans une boucle if au niveau du programme vb
je veut tester sur un champ texte qui s'appelle txtpassage si ce champ existe dans mon base de donnée alors la page suivante 'rapport' s'affiche sinon un message d'erreur saffiche .voila mon code mais il faut savoir d'avence que j'ai deux tables dans mon bd qui sont:
NUMLOGVAL(parametre,valeur,datet)
PDL(passage,parametre,valeur,datet)

Private Sub CmdRapport_Click()
If TxtPassage.Text = "" Then
ch = MsgBox("Il faut tapper le passage du machine", vbQuestion + vbOKOnly, "Attention")
If ch = vbYes Then
End
End If
Else
For i = 0 To n
If InStr(1, Adbacc.RecordSource, TxtPassage.Text, vbTextCompare) Then
rapport.Show
acceuil.Visible = False
Else
ch1 = MsgBox("Passage inexistant veuillez taper un autre passage", vbQuestion + vbOKOnly, "Passage inexistant")
End If
Next i
End If