Sergey,

Thankyou for your help. I have put the readwrite command at the end of the cursor but it still wont let me modify. Here is my code:

thisform.AutoCenter = .t.

SELECT modacad.key3, modacad.key4, modacad.moc011, modacad.mochk009 ;
FROM "U:\Data\modacad.dbf" ;
WHERE modacad.key4<>'TECHNICAL' ;
ORDER BY key3 ;
INTO CURSOR result readwrite


with thisform.grid1
.columncount = 4 
.RecordSourceType = 1
.RecordSource = 'result'
.column1.controlsource = 'UPPER(result.key3)'
.column1.header1.caption = 'Design No'
.column1.width=100
.column2.controlsource = 'UPPER(result.key4)'
.column2.header1.caption = 'Design No'
.column2.width=130
.column3.controlsource = 'UPPER(result.moc011)'
.column3.header1.caption = 'Description'
.column3.width=370
.column4.addobject("Chk1","Checkbox")
.column4.CurrentControl="Chk1"
.Column4.chk1.Caption = ""
.Column4.Sparse = .F.
.column4.width=110
.Column4.controlsource = 'result.mochk009'
.column4.header1.caption = 'Final Garments'
ENDWITH

Many Thanks