Access - unir registros de un campo en cadena de texto

Problema:
Campo:
Ciudad
Registros:
Santiago
Buenos Aires
Caracas
Lima...

Que en un campo de texto aparezca:
Algunas capitales del continente son Santiago, Buenos Aires, Caracas, Lima...
¿Cómo?

atte. fdo

PUBLIC fuction mostrar() as string
dim db as databese
dim rs as recordset
dim texto as string

set db=currentdb
set rs=db.openrecordset(tabla)

do until rs.eof
texto = texto & rs!Ciudad &","
loop
mostrar = "Algunas capitales del continente son " & texto
end function


en el origen de datos del control hace referencia a la funcion mostar

JLF_