Visual Basic - Necesito Ayuda

Hola

tengo el siguiente codigo:

Private Sub Command1_Click()
Dim fecha1 As Date
Dim encontrar As String
fecha1 = MonthView1.Value
Data1.Recordset.MoveFirst
encontrar = "fecha like '" & fecha1 & "'"
Data1.Recordset.FindFirst encontrar
while Not Data1.Recordset.EOF
If Data1.Recordset.Fields("equipo1") = equipo.Text Then
Label1.Caption = Data1.Recordset.Fields("equipo1")
Label2.Caption = Data1.Recordset.Fields("equipo2")
Label4.Caption = Data1.Recordset.Fields("fecha")
Label5.Caption = Data1.Recordset.Fields("hora")
Label6.Caption = Data1.Recordset.Fields("lugar")
Else
If Data1.Recordset.Fields("equipo2") = equipo.Text Then
Label1.Caption = Data1.Recordset.Fields("equipo2")
Label2.Caption = Data1.Recordset.Fields("equipo1")
Label4.Caption = Data1.Recordset.Fields("fecha")
Label5.Caption = Data1.Recordset.Fields("hora")
Label6.Caption = Data1.Recordset.Fields("lugar")
End If
End If
Data1.Recordset.MoveNext
Wend
End Sub

y tendo una BD acces con los posibles encuentros de futbol, con 1 columna para un equipo otra para el equipo al que se enfrenta el equipo de la columna 1 y luego tengo la fecha la hora y el lugar del partido, cuando hago la busqueda y el equipo se encuentra en la columna 1 me muestra todo perfecto, pero si el equipo se encuentra en la columna 2, no me busca nada.

¿Alguien me puede echar una mano?

Muchisimas gracias de antemano.
P.D. espero haberme explicado bien

Hola
He pegado el código en un formulario y el problema creo que está en FindFirst. En el RecordSet carga los registros que tienen la fecha como criterio de búsqueda pero además también carga todos los registros que vienen después, incluso los que no cumplen el criterio de búsqueda, hata el final de la tabla.
Eso es lo que me ha ocurrido a mí. Supongo que te sucederá lo mismo.
Saludos