USE NAMES in 0 order lastname && UPPER(lastname) Procedure MyText.InteractiveChange lcSearchKey=upper(alltrim(this.value)) set exact off if seek(lcSearchKey,"NAMES","lastname") MyForm.MyListBox.Value=names.lastname else MyForm.MyListBox.Value=" " endif set exact on endprocOr, you could do it in the listbox using IncrementalSearch feature!