Problema con una busqueda con data

Germany
08 de Enero del 2006
Saludos!
quisiece que me ayudacen con una busqueda q tengo con data e aqui mis lineas de codigo
------
Private Sub Command1_Click()
Text1 = Format(Text1, ">")
login = Text1
Password = Text2
Text2.DataField = "password"
Text1.Text = Data1.Recordset.Fields("login").Value
Text2.Text = Data1.Recordset.Fields("password").Value
a = Data1.Recordset.BOF
b = Text2
If (a = False) And (b = Password) Then
Load bienvenido
bienvenido.Show
Unload Form5
Else
Text2.DataField = ""
Text1 = ""
Text2 = ""
Text3 = ""
MsgBox "Clave Erronea, intente luego", vbExclamation + vbOKOnly, "Información"
Text4 = Text4 + 1
If Text4 > 2 Then
End
End If
Me.Text1.SetFocus
End If
End Sub

----
el problema esta que solamente me toma el primer registro de tres q tengo y no se q ponerle para que ingrese al fomulario singuiente con cualquiera de los tres registros, de antemano gracias!