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