You should use Bindevent.

>by clicking on the header of a grid column i have code to set order to that column. When creating the recordsource for the grid (which is a cursor) the following code creates index's for each column
>
>

>** lcRecordsource is the recordsource of the grid
>Select (lcRecordSource)
>Afields(aFlds,lcRecordSource)
>For ix = 1 To This.Parent.grd1.ColumnCount
>	lcIx = '"FLD'+Alltrim(Str(ix))+'"'
>	lcField = Alltrim(aFlds(ix,1))
>	Index On &lcField Tag &lcIx Additive
>Endfor
>

>
>then in the click event of the header for each column in the grid i have the following
>
>

>lcColIndex ='FLD'+ Alltrim(Str(This.Parent.ColumnOrder))
>lcRecordSource = This.Parent.Parent.RecordSource
>
>Select (lcRecordSource)
>
>Set Order To &lcColIndex In &lcRecordSource
>
>Go Top
>
>This.Parent.Parent.Refresh
>

>
>Currently I am coping and pasting this code in each header click of the grid.
>
>Question is how can I programically add this code when i programically assign the grids recordsource and number of columns?
>
>Thanks in advance