Dim objDateiLeser As Object
        Dim var_spaltenname As String
 
        If File.Exists(System.Environment.CurrentDirectory.ToString & "\" & _
          "Spaltennamen.txt") = False Then
            MsgBox("Fehler! Die Datei 'Spaltennamen.txt' befindet sich nicht im" & _
            "selben Verzeichnis wie diese Anwendung!", "FEHLER!")
        Else
            For i As Integer = 0 To 100
                objDateiLeser = New StreamReader( _
                  System.Environment.CurrentDirectory.ToString & "\" & _
                  "Spaltennamen.txt")
                If Not objDateiLeser.readline(i) = Nothing Then
                    var_spaltenname = objDateiLeser.ReadLine(i).ToString
                    DataGridView1.Columns.Item(var_spaltenname).Visible = False
                    objDateiLeser.Close()
                End If
            Next i
        End If

Dim fileName As String = "Spaltennamen.txt")
Dim filePath As String = IO.Path.Combine(System.Environment.CurrentDirectory, _
  fileName)

    For Each var_spaltenname As String In IO.File.ReadAllLines(file)
        DataGridView1.Columns.Item(var_spaltenname).Visible = False
    Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist