VB to XML

kemarin aku bikin program semacam downtime report gitu...
salah satu fitur dari aplikasi ini adalah menyajikan data dalam format XML
pertama bingung juga, aku kan belum pernah ngutak atik XML
tapi berkat bantuan Ade, aku dapet skrip untuk bikin XML dari VB
this is the source:

Option Explicit
Private Sub Form_Load()
Dim objADORS As New Recordset
Dim objXMLDOM As New MSXML2.DOMDocument40
Dim schemaNode As MSXML2.IXMLDOMNode
objADORS.Open "SELECT ContactName From Customers", _ "PROVIDER=SQLOLEDB.1;SERVER=.;UID=sa;PWD=;DATABASE=Northwind;" 'Save the recordset as a DOMDocument object
objADORS.Save objXMLDOM, adPersistXML
With objXMLDOM
.setProperty "SelectionNamespaces", _ "xmlns:s='uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882'"
Set schemaNode = .selectSingleNode("//s:Schema")
With .documentElement
.removeChild schemaNode
.removeAttribute "xmlns:s"
.removeAttribute "xmlns:dt"
End With
.Save "c:\ContactsData.xml"
End With
objADORS.Close
Set objADORS = Nothing
Unload Me
End Sub