Dim filepath As String = "Pfad"
 
        Dim MyConnection As System.Data.OleDb.OleDbConnection
        MyConnection = New System.Data.OleDb.OleDbConnection( _
          "provider=Microsoft.Jet.OLEDB.4.0; " & "data source='" & filepath & "" & _
          "'; " & "Extended Properties=Excel 8.0;")
        Dim MyCommand As New System.Data.OleDb.OleDbCommand("select * from" & _
        "[Tabelle1$]", MyConnection)
        Dim myxlsada As New System.Data.OleDb.OleDbDataAdapter
        Dim my_xls As New DataTable
        MyConnection.Open()
        myxlsada.SelectCommand = MyCommand
        myxlsada.Fill(my_xls)