Wai Wai,

The problem is that your coding method is not opening the cursor. Modify it this way;

WITH THISFORM.DATAENVIRONMENT
	.ADDOBJECT('CURSOR1','Cursor')
	.Cursor1.CURSORSOURCE = CDX_DBF + 'database'
	.CURSOR1.ALIAS = 'database'
        <strong>.OpenTables()</strong>
ENDWITH

With Thisform.GRID
  .recordsourcetype = 1
  .recordsource = 'database'
EndWith