if objRecordset.rECORDCount <>  0  THEN
 Ress = objRecordSet.Fields.Item( 0 ).Value
' MsgBox REss
 Set xmlDoc = CreateObject("Msxml.DOMDocument")
 xmlDoc.async = False
 xmlDoc.loadXML (Ress)

 Set root = xmlDoc.documentElement.childNodes(0)
 Set SubRoot = root.ChildNodes
' MsgBox root.text
' MsgBox Subroot(1).text
 objRecordset.Close

 Dim ValArray()
 'этот цикл разбирает тест XML и для полученных значений вызывает хранимую процедуру SQL
 for i =  0  to SubRoot.length -  1 

    Set SubSub = SubRoot(i).ChildNodes
    ReDim ValArray( 3 )
     for j =  0  to SubSub.length -  1 
      ValArray(j) = SubSub(j).text
     Next
    SQL1 =  "select id from naimenovanie where namevalue = '"&ValArray(0)&"'"