XML SQL2000 ^ VB6

Hola amigos, necesito su ayuda:

Necesito devolver el resultado de una store procedure( el cual me devuelve
en formato xml) en un recorset.
La cadena xml lo formo con una consulta en sql 2000, pero el problema es

tengo que usar un componente que usa una funcion que me devuelve un
recordset -a esta funcion le paso como parametro el nombre del store que
quiero ejecutar.
En todo caso, Como podria hacer para que la consulta me devuelva el
resultado xml en una variable de salida (output) para luego hacerle un:
select @variable as 'xml'
y asi poder recuperarlo en la funcion recordset

Gracias por su ayuda