Contatenar registros de también en uno solo de una consulta

Debes hacer un procedimiento que recorra la base, y acumule el contenido del campo en una variable de memoria.
Dim TEXTO As String
Dim RS1 As Object
Dim SQL As String
TEXTO = ""
comandosql = "select * from tabla1"
Set RS1 = CurrentDb().OpenRecordset(comandosql)
nros = CurrentDb.TableDefs("tabla1").RecordCount
For i = 1 To nros
        TEXTO = TEXTO + " " + RS1.Fields("texto")
        RS1.MoveNext
Next i
MsgBox TEXTO
Saludos. Jorge

Gracias Jorge, aunque debo admitir que, aunque diseño bases de datos en Access, no soy muy bueno interpretando códigos vb.
¿En este caso la tabla se llama CONSECUTIVOS y el campo único es CONS c'omo seria el código...?
Digamos que tengo los siguientes registros:
CONS
A1234
B4567
C8901
En este orden de ideas, quiero que una consulta me arroje un sólo registro con la concatenación de todos los registros de la tabla, ¿me imagino que el código que me enviaste es una función que debo incluir en un módulo?, cómo debe ser el lenguaje SQL de la consulta para que arroje la información.
Mil gracias

Cambia lo que te paso del código: que es lo que hace cada comando
En vez de:
msgbox texto          *******mostrar un mensaje con el texto calculado
colocas:
[cons]=texto           ****** reemplazo el campo cons con el dato en texto
En vez de tabla1
Colocas el nombre de la tabla: CONSECUTIVOS
en vez de ... Fields("texto") **** es el nombre del campo
colocas ... Fields("cons")
Lo que no entiendo es una pequeña cosa. ¿El campo cons está en la misma tabla? Luego si tienes 3 registros, ¿tienes 3 contenidos de cons? ¿Qué es lo que quieres hacer? El procedimiento funciona creando un botón en un formulario que este basado en dicha tabla y grabará el contenido en el último registro de la base (en este caso en el campo cons, tercer registro)
Saludos. Jorge

Creo que es válido comentarte lo que intento hacer.
Resulta que tengo que hacer una captura de unos códigos de producto y temporalmente los voy almacenando en una tabla que se llama consecutivos y el único campo es CONS, donde voy grabando los registros.
Cuando intento hacer el informe, los registros la consulta siempre salen verticalmente, porque así los arroja la consulta, es decir, uno debajo del otro, lo cual me genera mucho gasto de papel y me gustaría que en un sólo campo del informe salieran tabulados los registros, es decir.
El informe sale así.
XX09809809809CO
XX09809809809CO
XX98968787687CO
XX87687876878CO
Me sale uno debajo del otro, y me gustaria que salieran como cuando uno organiza por bloques en word asi>
XX8979879CO XX08098098CO XX288989877CO XX390879287498CO XX2349873CO XX9898798CO XX09879873CO XX987987987CO XX987987987982CO XX3343434CO
Es decir, que en el informe no salgan tal cual sale en la consulta, un registro debajo del otro, sino mejor distribuidos para optimizar el gasto en papeles, por eso era que la consulta inicial contigo era para disenar una consulta que me arrojara concatenados todos los registros de la tabla, más que todo necesitaría saber como haría la consulta, me dijeron que con una función, pero en esa parte si que no conozco nada.
Mil gracias por tu tiempo y paciencia.

Hola nuevamente, me arroja un error en la linea
TEXTO = TEXTO + " " + RS1.Fields("CONS")
El codigo lo disene de la siguiente manera>
Private Sub Comando13_Click()
Dim TEXTO As String
Dim RS1 As Object
Dim SQL As String
TEXTO = ""
comandosql = "select * from CONSECUTIVOS"
Set RS1 = CurrentDb().OpenRecordset(comandosql)
nros = CurrentDb.TableDefs("CONSECUTIVOS").RecordCount
For i = 1 To nros
TEXTO = TEXTO + " " + RS1.Fields("CONS")
RS1.MoveNext
Next i
[cons] = TEXTO
End Sub
Gracias