Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  ' Excel-Tabelle anzeigen
  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 sFile As String = "d:\excelfile.xls"
  Dim sTable As String = "Tabelle1"
 
  ' 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)
 
  ' 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 DataGrid1
      .DataSource = oDs.Tables(0)
      .ReadOnly = True
      .Refresh()
    End With
  Catch ex As Exception
    MsgBox("Fehler beim Anzeigen der Excel-Daten!")
  Finally
    ' DB-Verbindung schließen
    oConn.Close()
  End Try
End Sub