Sub Excel_Daten_laden(ByVal TabellenName As String)
 
        Dim strConnection As System.Data.OleDb.OleDbConnection = Nothing
 
        'Debug.Print(ListBox1.Items(ListBox1.SelectedIndex).ToString)
 
        Try
            Dim objDataSet As System.Data.DataSet
            Dim objAdapter As System.Data.OleDb.OleDbDataAdapter
            strConnection = New System.Data.OleDb.OleDbConnection( _
              "Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & XLS_Datei & "" & _
              "'; " & "Extended Properties=Excel 8.0;")
            objAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from" & _
            "[" & TabellenName & "$]", strConnection)
            objDataSet = New System.Data.DataSet
 
            objAdapter.Fill(objDataSet)
            DataGridView1.DataSource = objDataSet.Tables(0).DefaultView
 
            strConnection.Close()
            DataGridView1.AutoResizeColumns()
 
        Catch ex As Exception
            strConnection.Close()
        End Try
 
        ComboBox1.Text = TabellenName
 
        Dim s As DataGridViewColumn
        For Each s In DataGridView1.Columns
            s.SortMode = DataGridViewColumnSortMode.NotSortable
        Next s
 
 
    End Sub