Set aXmlNodeList = aXmlDom.documen tElement.select Nodes("//Department/Member")
If (aXmlNodeList.l ength > 0) Then
For ii = 0 To (aXmlNodeList.l ength - 1)
aValue = aXmlNodeList.It em(ii).selectSi ngleNode("Role" ).Text
Combo1.AddItem (aValue)
Next
If (Combo1.ListCou nt > 0) Then
Combo1.Text = Combo1.List(0)...
Leave a comment: