error en usuario y contraseña

[c_keeper]

Código:

For i = 1 To 10
  u(i) = Val(txtusuario.Text)
  For n = 1 To 10
    c(n) = Val(txtcontraseña.Text)
    If u(i) = "juan corrales" And c(n) = "corrales" Then
       CLIENTES.Show
    Else
       MsgBox "Error de datos...", vbCritical, "Mensaje"
       'Call CmdLimpiar_Click
       Exit Sub
    End If
  Next n
Next i

Toda ésta parte no la veo bien >_<

Haces asignaciones sobreescribiendo los datos anteriormente guardados, pero además, pasas el contenido de las cajas de texto (que serán cadenas de caracteres) a valores númericos (función VAL), eso en principio te devolveria 0 en el caso de introducir uno de esos nombres.

Creo que debería ser algo así:

Código:

For i = 1 To 10
    If u(i) = txtusuario.Text And c(i) = txtcontraseña.Text Then
       CLIENTES.Show
    Else
       MsgBox "Error de datos...", vbCritical, "Mensaje"
       'Call CmdLimpiar_Click
       Exit Sub
    End If
Next i

Debes usar un sólo indice ya que la contraseña del usuario que está en la posición 1 del array U está en la misma posición del array C.

Espero no haberme confundido y haber sido de ayuda.
Saludos