If your code works, there is no need to change it, you will not gain any more speed. However, this construct will save you one line:

USE newdnc order flag AGAIN && AGAIN never hurts, but it can save you frustrations later.. :-)
if seek(0)
    thisform.text4.Value=char2
    thisform.text7.Value=char3
    thisform.text6.Value=char4
    thisform.text8.Value=char5
    thisform.text5.Value=char6
else
    =MESSAGEBOX("not found")
endif

>hi,
>thank you,
>when i begin all records(flage=0),
>when i finish ex.. myfirst job with first customer i replace to flag with 1 or 2 or ...etc
>i mean every user after he finished with any customer replace 1 or 2... to flag.
>any way your code excellent.
>
>best regards.
>m.qasem
>
>>If you have a tag on flag, locate is as fast as you can get it. However, remember that, depending on different parameters, you may lock the record. To avoid that I usually prefer

>>SELECT * FROM newdnc WHERE flag=0 into cursor curTemp
>>if _tally>0
>>  thisform.text4.Value=curtemp.char2
>>  thisform.text7.Value=curtemp.char3
>>  thisform.text6.Value=curtemp.char4
>>  thisform.text8.Value=curtemp.char5
>>  thisform.text5.Value=curtemp.char6
>>else
>>   =MESSAGEBOX("not found")
>>endif
>>

>>
>>
>>>hi all,
>>>
>>>i have table with more than 10,000 records, at network(many users).
>>>
>>>i need to found record with flag=0,to get all information at myform
>>>
>>>i useto locate to finde it as under,maybe somthing else faster.
>>>any idea
>>>

>>>USE newdnc
>>>LOCATE FOR flag=0
>>>if found()
>>>    thisform.text4.Value=char2
>>>    thisform.text7.Value=char3
>>>    thisform.text6.Value=char4
>>>    thisform.text8.Value=char5
>>>    thisform.text5.Value=char6
>>>else
>>>    =MESSAGEBOX("not found")
>>>endif
>>>

>>>thanks.
>>>m.qasem