Visual Basic - Problema con una busqueda con data

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!

por favor necesito saber cual es el preblema.
gracias!

Veo tienes un pequeño problema en el código:
Text1 = Format(Text1, ">")
login = Text1
Password = Text2
Text2.DataField = "password"
Hasta aqui bien, pero despues deberias utilizar una orden de busqueda como "FindFirst"

Data1.FindFirst "login = ' text1.text ' "
if data1.eof then
msgbox "Login no valido"
exit sub
end if

mira puse el siuiente codigo
----------------------
Private Sub Command1_Click()
Text1 = Format(Text1, ">")
login = Text1
Password = Text2
Text2.DataField = "password"
Text1.DataField = "login"
Data1.Recordsource.FindFirst "login = ' text1.text ' "
Data1.Recordsource.FindFirst "password = ' text2.text ' "
if data1.eof then
msgbox "Clave Erronea, intente luego", vbExclamation + vbOKOnly, "Información"
exit sub
end if
---------------

pero ahora cuando le doy aceptar en los text se me coloca la informacion que esta en la data y no toma la q yo escribo auxilio pleaseeeeeeeeeeeeeeeeeee

Si en Text1 escribes el login y en Text2 la contraseña, para que escribes esto?

Text2.DataField = "password"
Text1.DataField = "login"

Es innecesario,

Una vez que has introducido unos valores en esos cuadros de texto, y pulsado el boton, el Data tiene que buscar con "FindFirst"; recuerda solo buscar.
Si sigues teniendo problemas enviame el formulario tal y como lo tienes.

nada q ver ! , si te voy a enviar el formulario vamos a ver

Bueno colega, voy a intentar entender tu codigo ya que no todos codigficamos igual, asi que posiblemente encontraras cosas que han cambiado drasricamente en tu codigo, ahi va:

Private Sub Command1_Click()
if text1.text="" then

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

Bueno colega, voy a intentar entender tu codigo ya que no todos codigficamos igual, asi que posiblemente encontraras cosas que han cambiado drasricamente en tu codigo, ahi va:

Private Sub Command1_Click()
Dim Contar as interger
if text1.text="" then
msgbox "Digite Nombre de usuario",Vbexclamation,"Nombre de Usuario"
text1.setfocus
else
if text2.text="" then
msgbox "Digite Nombre de usuario",Vbexclamation,"Nombre de Usuario"
text2.setfocus
else
data1.RecordSource="select * from TABLA where Login='" & text1.text & "' and password='" & text2.text & "'"
if not data1.eof then
bienvenido.Show
Unload Form5
else
MsgBox "Clave Erronea, intente nuevamente", VbExclamation, "Información"
Contar=Contar + 1
''no te aconsejo que le cierres el programa al usuario por las veces en
''que intenta acceder en la sesion, ya que igualmente lo volvera a abrir y
''volvera a intentar entrar, pero como te digo es opcion y es la forma como
''codificamos cada quien.
if contar>2 then
end
else
text1.setfocus
end if
end if
end if
endif
End Sub

espero y te sirva creo que es lo mismo que tu tienes pero de una forma un poco diferente si no entiendes algo escribeme y con gusto te ayudo, suerte colega.

Oye Charles muchas gracias por esa pequeña modificación ; ) , encerio te lo agradesco con todo mi corazón , pero cuando coloco

data1.RecordSource="select * from TABLA where Login='" & text1.text & "' and password='" & text2.text & "'"

no lo toma ya que cae al siguiente form con cualquier cosa q uno le escriba , en la tabla le puse pues el nombre de mi tabla hecha en access y nada y le puse la direccion completa en donde esta ubicada , es decir, C:\Documents and Settings\........mdb y tampoco so helpme again please !!!!!!!!