I continue to get teh Invalid Subscript error. Here's the code. Anything wrong with this code?

*************

SELE v_man_inv
M.NEWNAME = ALLT(ThisForm.NsnTxt.VALUE)

=TABLEUPDATE(.T.)

*thisform.InventoryList.Requery
*i = 1

*DO WHILE thisform.InventoryList.Listitem(i)<>m.newName
* i = i + 1
*enddo
*thisform.InventoryList.listindex = i
*thisform.InventoryList.TopItemID = i
*thisform.InventoryList.SetFocus
*thisform.Disable_Boxes

*Thisform.LockScreen = .f.

*thisform.refresh
*************************