Если вы используете SqlDataReader, которым является большинство людей, вы можете получить имена полей, используя следующий код
Private Shared Function GetDataRecordColumns(ByVal dr As SqlClient.SqlDataReader) As List(Of String)
'' list to contain the columns
Dim ls As New List(Of String)
For x As Integer = 0 To dr.FieldCount - 1
ls.Add(dr.GetName(x))
Next
Return ls
End Function
Если вы используете набор данных или таблицу данных, можно использовать следующую функцию (просто передайте ваш набор данных. Таблица (0), если вы работаете с набором данных)
Private Shared Function GetDataRecordcolumns(ByVal dt As DataTable) As List(Of String)
Dim ls As New List(Of String)
For Each col As DataColumn In dt.Columns
ls.Add(col.ColumnName)
Next
Return ls
End Function
Надеюсь, это поможет
G