Dim sql As String
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + strUpFile + ";" + "Extended Properties=Excel 8.0;"
Dim conn As OleDbConnection
conn = New OleDbConnection(strConn)
conn.Open()
Dim schemaTable As DataTable
schemaTable = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, Nothing)
Dim tableName As String
tableName = schemaTable.Rows(0)(2).ToString().Trim()
sql = "SELECT * FROM [" & tableName & "]"
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(sql, conn)
Dim ds As DataSet = New DataSet
myCommand.Fill(ds, "table1")
If ds.Tables("table1").Rows.Count > 0 Then
Dim dt As New DataTable
Dim row As DataRow
dt = ds.Tables("table1")
... ... .
End If