maybe this will work for you: put this in the Keypress() of the form. if i remember correctly the following will only work with character indexes. i wrote this a long time ago for a form with a only grid and an exit button. hope this helps.

if Inlist(nKeyCode, 4, 5, 9, 24, 19)
	return
endif
LOCAL ;
	key_stroke, ;
	key_rec, ;
	NewKey

key_stroke = UPPER(CHR(nKeyCode))
key_rec = RECNO()
SEEK key_stroke
DO WHILE .T.
	NewKey = INKEY(.4, "H")
	IF NewKey <> 0 .AND. BETWEEN(nKeyCode, 48, 122)
		key_stroke = key_stroke + UPPER(CHR(NewKey))
		SEEK key_stroke
		IF EOF()
			EXIT
		ELSE
			key_rec = RECNO()
		ENDIF
	ELSE
		EXIT
	ENDIF
ENDDO
IF EOF()
	if between(key_rec, 1, reccount()) .or. key_rec < 0
		GOTO key_rec
	endif
ENDIF