Visual Basic - Error en proceso

Que tal amigos la verdad recurro a ustedes para pedirles su valiosa ayuda, desde hace dias e tenido un problema, estoy haciendo un programa y lo primero que me muestra es una clave de acceso pues bien le hice las lineas de codigo las cuales son estas:

Text1 = Format(Text1, ">")

login = Text1

Password = Text2

Text2.DataField = "password"

Text1.DataField = "login"

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

End If

End If

Me.Text1.SetFocus



el problema esta es q solamente me toma un solo registro de tres que tengo en la base de datos y sinceramente no veo por q no me toma los tres , si saben por que este asunto les agradesco sus comentarios...