主题：列名转换标题名的问题

请教老师，下面代码得到的是列名，想得到的是标题名，不知道应该在哪里设caption

Dim dr As Row =  Tables("员工信息_Table9").Rows(Tables("员工信息_Table9").Rows.Count - 1) 'SQLTable统计表最后一行是合计行
Dim st As String
Dim maxName As String = "项目编号_1"  '列名
Dim maxValue As Integer = dr("项目编号_1")  '列名
Dim Names() As  String = {"项目编号_2","项目编号_3","项目编号_4"}  '列名
For Each Name As String In Names
   If dr(name) > maxValue Then
       maxName = name
       maxValue = dr(name)
   End If
Next
st = maxName
MessageBox.Show("等级是:" & st)  这里想得到标题名