Sergy:

Try this:

set excape on

use Myfile in 0
select myfile

go bottom
j = 1
do while not bof()
skip -1
j = j + 1
enddo
jst = alltrim(str(j))
wait window "Records = &jst"

My experience with this in VFP 6.0 and 8.0, is a never ending loop that requires escape to stop.

Mike Smith