I am not trying to make you fix all my coding problems, but this one, something isn't right.

In the 'Find' button, ClickEvent, there is only one line and it works 'prefectly':
ThisForm.MyFind()

In the textboxes, KeyPressEvent, the following is in there and it does not work right (lists all at first, but then after first try, it seems "OK"?):
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
ThisForm.MyFind()
NoDefault
ENDIF

Chuck

>What exacly doesn't work? Could you post the offending code, please?

>>>>>if nKeyCode=13
>>>>>   thisform.MyFind()
>>>>>   nodefault
>>>>>endif