Access - Funcion JOINRS

Buenas estoy usando una función diseñada por Bengoecha, la cual me parece muy util para lo que busco, pero el tema del recordset no lo domino, la verdad soy un neofito de la programación jeejej

alguien me prodria dar un ejemplo de esta función

Saludos

¿Que hace?

'---------------------------------------------------------------------------------------
' Procedure : JoinRS
' DateTime : 25/09/04
' Author : José Bengoechea Ibaceta (Chea)
' Purpose : Devuelve una cadena de texto con todos los valores del campo NombreCampo
' : en el recordset RS, separados con Separador
' Estás autorizado a utilizar este código dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web, por favor,
' contactar con el autor en
'
' [email protected]
'---------------------------------------------------------------------------------------
Public Function JoinRS(rs As ADODB.Recordset, NombreCampo As Variant, Separador _
As String) As String
Dim stTemp As String, v As Variant, i As Integer
v = rs.GetRows(, , NombreCampo)
ReDim matriz(UBound(v, 2)) As Variant
For i = 0 To UBound(v, 2) - 1
matriz(i) = v(0, i)
Next i
stTemp = Join(matriz, Separador)
JoinRS = stTemp
End Function

Me parece que a la funciona así:

La tenés que llamar con un adodb.RECORDSET, con el nombre del campo y con el separador de valores que vas a utilizar.
La funcion recorre todos los registros y va acumulando en un string cada uno de los valores del campo que le dijiste.
Devuelve en un string todos los valores de un campo de la tabla.

¿Pero en que caso se usuaría, o para que?

Tengo un query y quiero unir cada registro de esa consulta en un linea concatenada pero utilizo la formula y no funciona no entiendo, no se que debo colocar en cada item solicitado en la formula

Gracias por ayuda

1.- Una consulta con varios campos. (por ejemplo Field1, Field2, Field3 y Field4)
2.- Esta Consulta con + de 1 registro (por ejemplo 20 registros)
3.- Queres tener una lista de 20 registro y en solo campo los valores de los campos de la consulta. Ejemplo:
Reg01 = Field1 Field2 Field3 Field5
...
Reg20 = Field1 Field2 Field3 Field5