so you want to replace a node with just text? Try this:
Code:
' this is the text you want to put in place of the var node
Dim xText
Set xText = DomObject.createTextNode("250")
' this is the var node to be replaced
Dim xTempNode
Set xTempNode = DomObject.selectSingleNode("sqlpart/var[@id='personeelslid_id']")
' this is the replacement
DomObject.documentElement.replaceChild xText, xTempNode