Many thanks,

Grid.column(x).controlsource = ;
       ctod(substr(table.c_date,5,2)+'/'+substr(table.c_date,7,2)+'/'+substr(table.c_date,1,4))

Works perfectly!!!
Although this makes the column read only, I place a popup calendar in dblclick event of textbox and replace the "Date" column with DTOS(date) selected.

*!*DblClick of Textbox" 
replace table.c_date with dtos(getdate())

*!*Keypress event of textbox
LPARAMETERS nKeyCode, nShiftAltCtrl
if nKeyCode <> 9 .and. nKeyCode <> 13 .and. nKeyCode <> 4 .and.;
  nKeyCode <> 5 .and. nKeyCode <> 19 .and. nKeyCode <> 24 
  *!* Any Key that is not arrow, tab or enter, popup a calendar
  this.dblclick()
else
	dodefault()
endif