Конвертировать DataTable.Column в String() без цикла

Imports System.Runtime.CompilerServices
Module Module1
    ''' <summary>
    ''' возвращает массив строковых представлений поля с индексом jj таблицы tb
    ''' </summary>
    <Extension()>
    Public Function ArrayFromTableCol(ByVal tb As DataTable, ByVal jj As Integer) As String()
        Dim s = (From rr As DataRow In tb.Rows Select rr.Item(jj)).ToArray
        Dim ss() As String = s.[Select](Function(x) x.ToString()).ToArray()
        Return ss
    End Function
'…
End Module

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
    Dim str() As String = tb2.ArrayFromTableCol(0)
End Sub

DGV.Columns(0).Rows.Cast(Of String).ToArray

'поле с индексом 1 имеет тип String
Dim lstr As New List(Of String)
Dim rd As DataTableReader = tb2.CreateDataReader
While rd.Read
    lstr.Add(rd.GetString(1))
End While
Dim str() As String = lstr.ToArray

'поле с индексом 0 имеет тип Integer
Dim lstr As New List(Of Integer)
Dim rd As DataTableReader = tb2.CreateDataReader
While rd.Read
    lstr.Add(rd.GetInt32(0))
End While
Dim str() As Integer = lstr.ToArray

'несколько ускорит процесс запись непосредственно в массив
Dim str(tb2.Rows.Count - 1) As Integer
Dim ii As Integer
Dim rd As DataTableReader = tb2.CreateDataReader
While rd.Read
    str(ii) = rd.GetInt32(0)
    ii += 1
End While