在VB中如何新建2级结点

o root = odoc . createelement(" root ")
Set odoc . Document element = o root
o root . Set attribute "部门编号"，" 897"
'添加子节点
Set on ode = odoc . createelement(" Document ")
on ode . text = " demo "
oo root . appendchild on ode

Set ode = odoc . createelement("创建日期")
o root.appendchild onodeappendchild on child

-