Zoeken ook op tabblad

[shirtshop]

Met een zoekopdracht wordt een er record gevonden, echter heb ik op een tabblad welke via een relatie contactpersonen gekoppeld zijn. Hierin moet ook gezocht worden en eventueel de uitkomst zichtbaar zijn.
Naam van dit tabblad is "Contactpersonen" en dit is mijn zoekopdracht:

Private Sub cmdZoeken_Click()

Dim strCriteria As String

On Error GoTo Err_cmdZoeken_Click
txtZoeken = ""
[txtZoeken] = InputBox("Geef klant naam ", "Zoeken", [txtZoeken])
strCriteria = "[Naam] Like '*" & [txtZoeken] & "*' or [Nummer] like '*" & [txtZoeken] & "*'"

Me.RecordsetClone.FindFirst strCriteria
If Me.RecordsetClone.NoMatch Then
MsgBox "Er is geen record gevonden", vbOKOnly, "Mededeling"

Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If

Exit_cmdZoeken_Click:
Exit Sub

Err_cmdZoeken_Click:
MsgBox "Geen resultaat of verkeerde invoer"
Resume Exit_cmdZoeken_Click

End Sub