Buenos dias.

Tengo un problema de indices sobre mas de 65000 registros.

Lo que hago es lo siguiente :

For I=1 To Thisform.List1.ListCount
Wait Windows "Procesando ............." nowait
If Thisform.List1.SelectedID(I) Then
Wait windows str(I)+ " " +Thisform.List1.List(i) nowait
Update Contratos set
vestado="S",vendedor_no=cVendedor_no,fec_asignacion=date()
Where contrato_no_pre = Alltr(Thisform.List1.List(I))
EndIf
EndFor

El error ocurre cuando I vale 65001
El error que sale es : "La referencia la SubIndice no es valida"

Alguna idea ?
No me explico el error, se supone que VFP posee capacidad para millones de registros.
O no ?