ERROR 7777 LISTINDEX

[kpetas]

ERROR 7777 YOU USE INCORRECTLY LISTINDEX
Yesterday this code works, but today no, I don't understand

For j = 0 To cad.ListCount - 1
If cad.Column(1, j) = Me.Lista3.Column(0, 1) Then
cad.SetFocus
cad.ListIndex = j
Exit For
End If
Next

 

[OlafBogus]

you haven't got your listbox set to multiSelect have you?

 

[kpetas]

No I didn't.
And the ListBox rowsource is this:
SELECT Kide.Codigokide, Kide.Nombrekide
FROM Kide ORDER BY [Codigokide];