[VBA, ACCESS 2010, REPORT]

Ho creato un report da una query che estrae tutti i record da una tabella.
Lo scopo è di mettere uno appresso all'altro il contenuto dei campi (evitando però di lasciare spazi vuoti per i campi che non contengono dati).

Esempio:
record1: campo1, campo2,campo3
contenuto del record1: valore1,vuoto,valore3

record2 ............
ecc (ho creato solo 6 record per fare delle prove)

Vorrei l'output di questo tipo:
valore1,valore3

Ed allora apro il recordset e leggo i campi con:

Do While Not rst.EOF
qNome = rst(1)
qCognome = rst (2) ecc...

Li unisco in una unica stringa Unito (considerando solo quelli con dati e non i campi vuoti):

If Len(qNome) > 0 Then
Unito = Unito & qNome
Else
Unito = Unito & " - manca nome - "
End If

ecc per gli altri campi....
e li visualizzo in una casella di testo (chiamata Testo25 e non associata a nessun controllo):

Me!Testo25.Value = Unito
rst.MoveNext
Loop

Ecco le 2 anomalie che ottengo:

1 - Ottengo, nella casella di testo del report di uscita, 'solo' l'ultima stringa creata (cioè quella con i dati del sesto record).

2 - Inoltre nel report trovo ripetute 6 caselle di testo (cioè uguali al numero totale dei record della tabella) con lo stesso contenuto (appunto quello dell'ultimo dei record).

Dove sbaglio ?

Grazie in anticipo e ... scusate ma sono alle prime armi.

Ugoguitar