Dim cn As System.Data.OleDb.OleDbConnection
        Dim cmd As System.Data.OleDb.OleDbDataAdapter
        Dim ds As New System.Data.DataSet()
 
        cn = New System.Data.OleDb.OleDbConnection( _
          "provider=Microsoft.Jet.OLEDB.4.0;" &   
         _  "data source=C:\ExcelData.XLS;Extended Properties=Excel 8.0;")
 
        cmd = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", _
          cn)
 
        cn.Open()
        cmd.Fill(ds)
        cn.Close()