thisform.Grid1.RecordSource = NULL SELECT * FROM TABLE1 WHERE mac1=thisform.text1.value .AND. Table1.nMonth == 1 ORDER BY Table1.nDay INTO CURSOR grdCursor READWRITE mntLastDay = DATE(grdCursor.nYear, grdCursor.nMonth, 1) mntLastDay = (GOMONTH(mntLastDay,1) - mntLastDay) SELECT grdCursor FOR nDay = grdCursor.nDay+1 TO mntLastDay INSERT INTO grdCursor (nDay) VALUES (nDay) NEXT thisform.Grid1.RecordSource = "grdCursor" thisform.Grid1.Refresh()