主题：修改列标题

Dim cls() As String = {"ghyw","人口","面积","语言","宗教","洲"} '指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80,80} '定义列宽
For i As Integer = 0 To  cls.Length - 1
DataTables("资产表").DataCols(i).Caption = cls(i)
'DataTables("资产表").DataCols(i).Name = cls(i)
DataTables("资产表").BuildHeader()
Next

参考例子写了上述代码，实现怎么修改列，经调试还有三个目的没有实现：1、只能修改标题不能修改列名称；2、不能指定列的数据类型及宽度；3、想设一个项目表专门存放列项目，通过代码在项目表提取项目作为指定表的名称及标题，甚至数据及宽度，但是我目前所知道的提取项目表中值是通过select提取，要提取全部数据怎么办。