For i As Integer = 0 To 4
            dt.Columns.Add("SP_" & CStr(i))
        Next i
 
        Dim lines() As String = IO.File.ReadAllLines( _
          "D:\Sperrlisten\ex_xls.txt")
        For Each line As String In lines
            Dim fields() As String = line.Split(" "c)
            Dim k As Integer = -1
            Dim row As DataRow = dt.NewRow
            For Each field As String In fields
                If Not field.Trim = "" AndAlso k < 4 Then
                    k += 1
                    row(k) = field
                End If
            Next
            dt.Rows.Add(row)
        Next