'Kleine Test-Tabelle erstellen
Dim dt As New System.Data.DataTable
dt.Columns.Add("Spalte1", GetType(String))
dt.Columns.Add("Spalte2", GetType(Integer))
 
For i As Integer = 0 To 9
    dt.Rows.Add("Zeile " & CStr(i), i)
Next i
 
'Arrays mit dem Inhalt jeweils einer Spalte füllen
'(dabei kann der Name der Spalte oder der Index benutzt werden):
 
Dim str_arr() As String = _
    (From r As DataRow In dt Select r.Field(Of String)("Spalte1")).ToArray
 
Dim itg() As Integer = _
    (From r As DataRow In dt Select r.Field(Of Integer)(1)).ToArray