Estimados amigos como puedo concatenar en un solo campo mediante un select en visual basic 6.0

En el sql me ejecuta así correctamente
declare @retvalue varchar(5000)
set @retvalue=''
select @retvalue = @retvalue +ltrim(rtrim(isnull(nombre,'')))+','
from (select nombre from monedas) as tmp_tbl
print @retvalue
el resultado es : "SOLES, DOLARES, EUROS"
==========================================
En el VB 6.0 Lo intente de la siguiente manera antes decirles que "cnx" es mi conexión a mi Base de datos ahí no hay problema
Dim rt As New Recordset
Dim sql1 as string
Sql1 = "declare @retvalue varchar(5000)" _
+ " set @retvalue=''" _
+ " select @retvalue = @retvalue +ltrim(rtrim(isnull(nombre,'')))+','" _
+ " from (select nombre from monedas) as tmp_tbl"
Set rt = Cnx.Execute(Sql1) =====> aquí no me sale ningún error
text1.text=rt.fields(0) ======> y aquí no me muestra nada
============> ¿COMO RECUPERO EL @retvalue ? Sin tener que crear un store pro gracias