Dim d As Col = t.Cols("第三列")
Dim m as string = d.Caption
http://www.foxtable.com/webhelp/scr/0570.htm