VB Code:
Imports System.Data
. . .
Dim cnnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Excel\test.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
Dim cnn As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim da As New OleDb.OleDbDataAdapter
Dim ds As New DataSet
Try
cnn.ConnectionString = cnnString
cnn.Open()
cmd = cnn.CreateCommand
cmd.CommandText = "SELECT * FROM [Sheet1$]"
da.SelectCommand = cmd
da.Fill(ds, "ExcelSheet")
DataGrid1.DataSource = ds.Tables("ExcelSheet")
Catch oEx As Exception
Console.WriteLine(oEx.ToString)
Finally
cnn.Close()
End Try