Private Sub cmdOK_Click() Dim nod As MSXML2.IXMLDOMNode Dim varResult As MSXML2.IXMLDOMParseError 'Traverse the child nodes of the book element 'setting the text elements to the appropriate values. 'Remember that the text contained in an element 'is considered to be a seperate child node of that 'element Set nod = BookNode.firstChild nod.firstChild.nodeValue = txtAuthor.Text Set nod = nod.nextSibling nod.firstChild.nodeValue = txtTitle.Text Set nod = nod.nextSibling nod.firstChild.nodeValue = txtGenre.Text Set nod = nod.nextSibling nod.firstChild.nodeValue = txtPrice.Text Set nod = nod.nextSibling nod.firstChild.nodeValue = txtPub.Text Set nod = nod.nextSibling nod.firstChild.nodeValue = txtDesc.Text End Sub |