How do get the column names for a query?

        Dim CON As New SqlConnection("connectionStringHere")
        Dim myQuery As String = "select * from SQLtable"
        Dim myCommand As SqlCommand = New SqlCommand(myQuery , CON)
        Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(myCommand)
        Dim myDataSet As Data.DataSet = New Data.DataSet
        myAdapter.Fill(myDataSet, "testTable")

        Dim numberOfColumns As Integer = myDataSet.Tables("testTable").Columns.Count
        Dim i As Integer = 0
        Dim ColumnName As String
        Dim myColumnsString As String = Nothing
        Dim myColumnsArray(0, 50) As String

        For i = 0 To numberOfColumns - 1 Step i + 1

            'Get name of the column number that is equal to i
            ColumnName = myDataSet.Tables("testTable").Columns(i).ToString

            'save the column name to a comma delimited string
            myColumnsString = myColumnsString + ", " + myColumnName

            'save the column to an array
            myColumnsArray(0, i) = myColumnName
        Next

Select allOpen in new window