>>>Long enough for thermometer to appear, I believe.
>>>Do you want me to add time stats to measure?
>>
>>My guess would be that during the first run VFP caches data wich causes subsequent queries to run faster.
>
>Right, but still it is not fast enough. In other words, I'm looking on the screen and nothing happens for ~20 seconds.

VFP won't show the progress bar unless it determines it's needed.

BTW, wouldn't you prefer to type this...

m.loThermo = NewObject("cusSQLThermo","cusSQLThermo.VCX")
			lnAccounts = m.poProcess.GetAccounts(m.lcQueue_Name_From, ;
				m.goApp.cDept, m.lcWhere, ;
				.cAdditionalJoin, m.ldStartDate, m.lnUsers * .txtAccountsPerUser.value)
RELEASE m.loThermo

INSTEAD of all of this?

lcNotify = set('notify')
			set notify on
			set talk on
			set talk window
			lnAccounts = m.poProcess.GetAccounts(m.lcQueue_Name_From, ;
				m.goApp.cDept, m.lcWhere, ;
				.cAdditionalJoin, m.ldStartDate, m.lnUsers * .txtAccountsPerUser.value)

			if m.lcNotify = 'OFF'
				set notify off
			endif
			set talk off

If so, try this class...

http://foxridgesoftware.com/Blogs/tabid/84/EntryID/2/Default.aspx