Hola tengo el siguente script:
Private Sub cmdnuevo_Click()
Dim u(1 To 10) As String
Dim c(1 To 10) As String
Dim i, n As Integer
u(1) = "juancorrales"
u(2) = "jose juan"
u(3) = "manuel"
c(1) = "corrales"
c(2) = "jose"
c(3) = "meme"
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
End Sub
y cuando lo corro , me marca error... alguien puede decirme que estoy haciendo mal...
se los agradezco mucho......