>Ernest, one other thing to try, is to redo the WITH:
>
>

>local loList, loItem
>loList = ThisForm.lvCritResult.listitems
>with loList
>   loItem = .Add(, , id_acct)
>endwith
>

David,
You may find this quite funny. I decided that I will clean up the code as Jos Pols suggested correctly with - "put your WITH...ENDWITH statement outside of your SCAN...ENDSCAN loop" for speed improvement. I ran the applications and now the form releases but there is a delay in the release, depending on the number of records that were populated. With 1000 records, a couple of seconds and with 16000 records, about 17 seconds (unacceptable). With your suggestions above the results were the same. What's this delay?