Экспорт данных из excel в XML

---

Привет,

Я написал приведенный ниже код для экспорта данных из excel в xml, но в файле excel, если ячейка столбца пуста, то в xml этот столбец/элемент не отображается.

я хочу, чтобы везде, где пустая ячейка в excel должна показывать 0 в xml.

Спасибо
Басит.

Что я уже пробовал:

Private Function exportExceltoXML(ByVal excelPath As String) As String

        Dim cnExcel As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excelPath + ";Extended Properties=Excel 12.0;")
        cnExcel.Open()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", cnExcel)
        da.Fill(ds)
        cnExcel.Close()

        Dim sXML As String
        sXML = ds.GetXml()
        ds.WriteXml(TextBox1.Text & "\Trn_Daily3.xml")
        ds.Dispose()
        da.Dispose()

        MsgBox("Exported successfully")
        Return sXML

    End Function

---