ThisForm.grdmelamd.recordsource="" THISform.lockscreen =.t. set safety off zap in crsrgrid set safety on ThisForm.grdmelamd.recordsource="crsrgrid" select * from melamdim into cursor crsrgrid readwrite THISform.lockscreen=.f. ThisForm.grdmelamd.refresh()