Ayuda con codigo de Password

[shunkhi]

Hola, pues soy un novato estudiante de Visual Basic y quiero hacer que mi sistema acepte varias cuentas de usuario registradas en una base de datos conectada mediante un Data!! ya está conectada, pero el problema es que solo me acepta los datos del primer registro y lo que quiero es que acepte lo de los otros registros que tengo... el codigo es el siguiente!

Private Sub cmdaceptar_Click()
If Data1.Recordset.Fields(1) = LCase(txtpassword) And LCase(txtnom) = Data1.Recordset.Fields(0) Then
Unload Me
Form17.Show
Else
MsgBox "La contraseña o el nombre de usuario son incorrectos", vbExclamation, "Aviso"
txtpassword = ""
txtnom = ""
txtnom.SetFocus
End If
End Sub

Espero su ayuda gracias!!

[ReViJa]

Mira este trozo:

Código:

If Data1.Recordset.Fields(1) = LCase(txtpassword) And LCase(txtnom) = Data1.Recordset.Fields(0) Then

Siempre estas comparando con la misma fila.

[shunkhi]

Hola, mira el codigo lo quise mas o menos acomodar para que funcione con el Data... este es el codigo para el ADO

Private Sub cmdaceptar_Click()
rsempleado.MoveFirst
rsempleado.Find "nombre='" & LCase(txtnom) & "'"
If Not rsempleado.EOF Then
If rsempleado.Fields(5) = LCase(txtpassword) Then
Unload Me
frmprincipal.Show
frmprincipal.StatusBar1.Panels(1).Text = "Usuario del Sistema: " & txtnom
Else
MsgBox "Contraseña Incorrecta", vbExclamation, "Aviso"
txtpassword = ""
txtpassword.SetFocus
End If
Else
MsgBox "Usuario no Autorizado", vbExclamation, "Aviso"
txtnom = ""
txtpassword = ""
txtnom.SetFocus
End If
End Sub

No se mucho de visual, pero si alguien me ayuda a hacerlo funcionar con el Data, estaria muy agradecido!!! Gracias..