Dim DS As System.Data.DataSet
Dim mComm As System.Data.OleDb.OleDbDataAdapter
Dim mConn As System.Data.OleDb.OleDbConnection
Dim sSql As String = "select * from [Tabelle1$]"
Dim DataFileName As String = "C:\data.xls"
 
mConn = New System.Data.OleDb.OleDbConnection( _
  "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataFileName & _
  ";Extended Properties=Excel 8.0;")
mComm = New System.Data.OleDb.OleDbDataAdapter(sSql, mConn)
DS = New System.Data.DataSet
 
mComm.Fill(DS)