Why the grid does no change? How can I show the correct data after the click the command button?
Thank you!

define class clsform as form
top=5
left=5
width=300
height=300

add object mycmd as CommandButton with;
left=5, top=80, height=15, width=100,;
caption="change"

add object mygrid as grid with;
left=5, top=100, height=200, width=150,;
recordsourcetype=4,;
recordsource="select nane from company "+;
"where left(cty_origin,1) <> 'H' into cursor mycur"

procedure mycmd.click
recordsource="select nanme from company "+;
"where left(name,1) = 'U' into cursor mycur"
thisform.mygrid.refresh
thisform.mygrid.setfocus
endproc
enddefine