dim cn as new OledbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\fileexcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
cn.Open

dim foglio1 as new DataTable
dim da as new OledbDataAdapter("SELECT * FROM [Foglio1$]",cn)
da.Fill(foglio1)