> 
THISform.lockscreen =.t.
ThisForm.grdmelamd.recordsource=""  && put this here
>set safety off
>zap in crsrgrid
>set safety on
>select * from melamdim into cursor crsrgrid readwrite
ThisForm.grdmelamd.recordsource="crsrgrid"  && <= you forgot this !
>ThisForm.grdmelamd.refresh()
>THISform.lockscreen=.f.  && and put this here