Dim excelsheet As [String]() = New [String](dtsheet.Rows.Count - 1) {} Dim i As Integer = 0 For Each row As DataRow In dtsheet.Rows excelsheet(i) = row("TABLE_NAME").ToString() Dim da As New OleDb.OleDbDataAdapter("Select * " + _ " From [" + excelsheet(i) + "]", strCon) da.Fill(ds) Exit For i += 1 Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)