Problem displaying records in Tlist.

 Hi,
I have created a Tlist to display records from a table in Forms 10g.

At WHEN-NEW-FORM-INSTANCE following code is written to populate data in Tlist

Declare
gr_id RECORDGROUP;
sqlstmt VARCHAR2(1000);
cnt NUMBER;
BEGIN
sqlstmt := 'SELECT EMPNAME,EMPNO FROM EMP';

gr_id := create_group_from_query('list',sqlstmt);

IF id_null(gr_id) then
RAISE form_trigger_failure;
END IF;

cnt := populate_group(gr_id);

IF cnt 0 then
RAISE form_trigger_failure;
END IF;

populate_list('EMP.EMPNAME',gr_id);

delete_group(gr_id);
END;

The EMP table contains about 250000 records. When I run the form, all records are not getting populated.