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!!