'Formular-ebene
    Dim IniFilePath As String = "G:\downloads\daten.txt"
 
    Dim dt As New DataTable
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With 
                {.Parent = Me, .Top = 10, .Left = 10, .Size = New Drawing.Size( _
                  400, 400),
                 .DataSource = bs}
 
 
 
    Private Sub frmInifileToDataTable_Load(sender As Object, e As EventArgs) _
      Handles MyBase.Load
 
 
        Dim cols() As String = {"PGD_BOHRKLASSE", "PGD_DURCHMESSER", "PGD_X", _
          "PGD_Y", "PGD_Z", 
                                "PGD_TIEFE",
                                "PGD_RICHTUNG", "PGD_BEDINGUNGSTR", _
                                  "PGD_MESSKORR_TYP"}
 
        'Spalten in der Table erstellen / Datentypen beachten 
        For i As Integer = 0 To cols.Length - 1
            If i = 2 Or i = 5 Then
                dt.Columns.Add(cols(i), GetType(String))
            Else
                dt.Columns.Add(cols(i), GetType(Double))
            End If
        Next i
 
        Dim lines() As String = IO.File.ReadAllLines(IniFilePath)
 
 
        Dim row As DataRow, key As String, vl As Double
        For i As Integer = 0 To lines.Length - 1
            lines(i) = lines(i).ToUpper
            If lines(i).StartsWith("[ROW_") Then
                If row IsNot Nothing Then dt.Rows.Add(row)
                row = dt.NewRow
            Else
                Dim parts() As String = lines(i).Split("="c, 
                StringSplitOptions.RemoveEmptyEntries Or _
                  StringSplitOptions.TrimEntries)
 
                If parts.Length = 2 Then
                    key = parts(0)
                    Dim ind As Integer = Array.IndexOf(cols, key)
                    If ind >= 0 Then
                        If ind = 2 Or ind = 5 Then
                            row(key) = parts(1)
                        Else
                            row(key) = CDbl(parts(1))
                        End If
                    End If
                End If
            End If
        Next i
        dt.Rows.Add(row)
 
        bs.DataSource = dt
 
        'Filter setzen
        bs.Filter = dt.Columns(cols(1)).ColumnName & " > 0"
    End Sub