textbox da veri tamamlama yada autocomplate

ercancım ;
autocomplate özelliği o textte girilen tüm verileri getiriyor ben ise o gridin bağlı olduğu field alanından bilgi getirmesini istiyorum.

metin hocam bu konuda(autocomplete) yorum yapmıştı ve pek hoş değildi söyledikleri

aşağıdaki kodu textbox'ın keypress event'ına yazıp dener misin?

*-- keypress event'a yazılacak
Lparameters nKeyCode, nShiftAltCtrl
Local d, chars, al, dsql
al = Alias()
chars = "1234567890*-!'+%&/()=?_#$\qwertyuıopğüasdfghjklşi,zxcvbnmöç.<QWERTYUIOPĞÜASDFGHJKLŞİ;ZXCVBNMÖÇ:>|"

If nKeyCode >= 32 And Atc(Chr(nKeyCode),chars) > 0 And nShiftAltCtrl <= 0
    d = Substr(This.Value,1,This.SelStart) + Chr(nKeyCode)
    d = Iif(Isnull(d)=.T.,"",d)
    al = Alias()
    dsql = Alltrim(d)+"%"
    =SQLExec(Thisform.lnHandle,"select oteladi from otel with (NOLOCK) where oteladi like ?dsql order by oteladi ","crHp")
    If !Empty(al)
        Select Evaluate("al")
    Endif
    If Recc('crHp') > 0
        nCurPos = Len(d) &&+ 1
        This.Value = Alltrim(crHp.oteladi)
        This.SelStart  = nCurPos
        This.SelLength = Len(This.Value) - nCurPos
        Nodefault
    Else
        This.Value = d
        This.SelStart = Len(d)
        Nodefault
    Endif
    If Used('crhp')
        Use In 'crHp'
    Endif
    If !Empty(al)
        Select &al
    Endif
Endif
If Used('crVarmi')
    Use In 'crVarmi'
Endif
If Used('crHp')
    Use In 'crHp'
Endif
If !Empty(al)
    Select Evaluate("al")
Endif

oradaki thisform.lnHandle sql bağlantısı için o formda kullandığım connection handle.
bu gibi bazı yerleri düzeltmen gerekecek.
sql kullanıyorsan buraya kendi connection handle ın yazılacak
eğer sql değil de VFP database kullanıyorsan bu satırı sqlexec... yerine vfp nin select komutu ile değiştir.