'Datei in DataGrid laden
            'Benötigte Objekte
            Dim oDs As System.Data.DataSet
            Dim oConn As System.Data.OleDb.OleDbConnection
            Dim oAdapter As System.Data.OleDb.OleDbDataAdapter
 
            ' Pfad und Tabellennamen bitte anpassen!
            Dim sTable As String = "Tabelle1"
            Dim sFile As String = data_input_file
 
            ' Connection-String für die DB.Verbindung zur Excel-Datei
            Dim sConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
              "Source=" & sFile & ";" & "Extended Properties=Excel 8.0;"
 
            ' Connection herstellen
            oConn = New System.Data.OleDb.OleDbConnection(sConn)
 
            ' Excel-Tabelle referenzieren
            ' Hinweis: Tabellenname muss mit abschließendem $-Zeichen und
            ' in eckigen Klammern stehen
            oAdapter = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM [" _
              & sTable & "$]", oConn)
            'oAdapter = 
 
            ' DataSet erstellen und mit Daten aus dem DataAdapter füllen
            oDs = New System.Data.DataSet
            Try
                oAdapter.Fill(oDs)
 
                ' DataGrid füllen und Daten anzeigen
                With main_form.datagrid_tabelle
                    .DataSource = oDs.Tables(0)
                    .ReadOnly = True
                    .Refresh()
                End With
            Catch ex As Exception
                MsgBox("Fehler beim Anzeigen der Excel-Daten!")
                Exit Sub
            Finally
                ' DB-Verbindung schließen
                oConn.Close()
            End Try
            'Datei einlesen beendet
 
 
            With main_form.datagrid_tabelle
                'Kopfzeilen editieren
                .Columns(0).HeaderText = "Nummer"
                .Columns(1).HeaderText = "Breite"
                .Columns(2).HeaderText = "Name"
                .Columns(3).HeaderText = "Vorname"
 
                'Überflüssige Spalten entfernen
                Dim i As Integer
                main_form.ausgabe_dummy.Text = .Columns.Count
                'For i = 4 To (.Columns.Count-1)
                '.Columns.RemoveAt(i)
                'Next
 
                'neue Spalten anhängen
                .Columns.Add("zusatzfeld1", "Zusatzfeld1")
                .Columns.Add("zusatzfeld2", "Zusatzfeld2")
                .Columns.Add("zusatzfeld3", "Zusatzfeld3")
            End With