Dim MyConnection As System.Data.OleDb.OleDbConnection

            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & sFile & "'; Extended Properties=""Excel 8.0;HDR=NO""")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Foglio1$]", MyConnection)


            MyCommand.TableMappings.Add("Table", "menu")
            Dim DtSet = New System.Data.DataSet
            MyCommand.Fill(DtSet)
            Dim dT As DataTable = DtSet.Tables("menu")