I have a String search function, It searches more than 4 million Records.
It takes more than 1 to 2 minutes to make the String search.
Please How can i show a progress bar while search in progress. Thank you very much for the help.

LcSQL = [select distinct(a.tiffile), b.proj_no, b.workpkg_no, c.tofrm, c.sequence,;
c.docdesc, c.org1, c.author1,c.reciporg1,c.recip1, c.ref1, c.docindex_i ];
+[from ocrdata a, docudeck b, docindex c ;
WHERE UPPER(b.file_name) = UPPER(a.tiffile) ;
and b.docindex_i = c.docindex_i ;
and Upper(a.OCDATA) like "%] + Upper(alltrim(stxtocrstring)) + [%"] + swhere +;
[ order by a.id into Cursor lcSource]
******************
 

WAIT WINDOW "OCR Search in Progress"
&LcSQL

with thisform.pageframe1.page3.grid1
	.RecordSource = ""
	.RecordSourceType = 1 &&1 - Alias &&4 - SQL
	.RecordSource = "lcSource"
endwith
WAIT CLEAR