Thanks for everyones help, here is the code that seems to work pretty well so far, I put it in the keypress method of my textbox.
*-------------------------------------------------------------------------*
local lcString,nrow
lcString='%'+allt(upper(thisform.text1.value))+'%'
select dcode1,descriptio from c:\proclook ;
where descriptio LIKE ?lcString ;
into cursor xResults
thisform.list1.clear()
nrow=1
if _tally > 0
select xResults
scan
with thisform.list1
.addlistitem(xjunk.dcode1,nrow,1)
.addlistitem(xjunk.descriptio,nrow,2)
endwith
nrow=nrow+1
* Limit the listing to 100 items for speed
if nrow > 100
exit
endif
endscan
endif