Ler XML

Olá,

Gostaria de ler atributos "nome_produto" e "valor" do XML abaixo no VBScript, usando ADO se for possível, porém não estou conseguindo nem conectar ao arquivo.

Alguém pode me dar um auxílio?

valeu!

<?xml version="1.0" encoding="ISO-8859-1" ?>
<xml xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema">

<s:Schema id="RowsetSchema"> <s:ElementType name="row" content="eltOnly" rs:updatable="true"> <s:AttributeType name="fonte" rs:number="1" rs:nullable="true" rs:writeunknown="true" rs:basecatalog="agrolink" rs:basetable="#tb" rs:basecolumn="fonte"> <s:datatype dt:type="string" rs:dbtype="str" dt:maxLength="20"/>

 </s:AttributeType>
 <s:extends type="rs:rowbase"/>
	</s:ElementType>
</s:Schema>

<rs:data> <z:row fonte="CBOT" data="2011-07-21T00:00:00" nome_produto="Milho" valor="6.79" valorAnt="6.91" variacao="-1.73" contrato="Set/11 US$/bushel"/>

</rs:data>
</xml>