Necesito Ayuda

txetxo
07 de Junio del 2004
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