d = new database()
d.databasename = "dbasesamples"
d.active = true
q = new query()
q.database = d
q.sql = 'select * from customers'
q.active = true
showprogress("Open")
n = 0
do while not q.rowset.endofset
   q.rowset.next()
   n++
   cN = '  '+n+ '  records processed'
   oProgress.msg.text = cN
   inkey(0.2)
enddo
showprogress("Close")
q.active = false
d.active = false