This is what I am using...

VB Code:
  1. Dim DS As System.Data.DataSet
  2.         Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
  3.         Dim MyConnection As System.Data.OleDb.OleDbConnection
  4.  
  5.         MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; data source=" & ofdOpen.FileName & "; Extended Properties=Excel 8.0;")
  6.         ' Select the data from Sheet1 of the workbook.
  7.         MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)
  8.  
  9.         DS = New System.Data.DataSet
  10.         MyCommand.Fill(DS)
  11.         MyConnection.Close()