SQLEXEC(.....) && with additional field thisform.Grid1.RecordSourceType = 1 thisform.Grid1.RecordSource = "YourSPTCursor" thisform.Grid1.ReadOnly = .f. thisform.Grid1.Column1.ControlSource = "YourSPTCursor.Field1" thisform.Grid1.Column1.ReadOnly = .f. thisform.Grid1.Column2.ControlSource = "YourSPTCursor.Field2" thisform.Grid1.Column2.ReadOnly = .f. thisform.Grid1.Column3.ControlSource = "YourSPTCursor.Field3" thisform.Grid1.Column3.ReadOnly = .f. thisform.Grid1.Column4.ControlSource = "YourSPTCursor.Field4" thisform.Grid1.Column4.ReadOnly = .f.