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