Imports System.Data

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim MyConnection As System.Data.OleDb.OleDbConnection

            Dim ds As System.Data.DataSet

            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter

            MyConnection = New System.Data.OleDb.OleDbConnection _

            ("provider=Microsoft.Jet.OLEDB.4.0;Data Source='xl2xml.xls';Extended Properties=Excel 8.0;")

            MyCommand = New System.Data.OleDb.OleDbDataAdapter _

                ("select * from [Sheet1$]", MyConnection)

            MyCommand.TableMappings.Add("Table", "Product")

            ds = New System.Data.DataSet

            MyCommand.Fill(ds)

            MyConnection.Close()

            ds.WriteXml("Product.xml")

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class