Access - Concatenar registros con un mismo ID

Option Compare Database

Option Explicit

Public Function ConcatenarCLAS_POT_1(NREG_NEW As String) As String

    Dim Concat As String, Rst As DAO.Recordset

    'Abrimos un recordset con todos los registros corespondientes a NREG_NEW

    Set Rst = CurrentDb.OpenRecordset("SELECT Tabla7.CLAS_POT_1 FROM Tabla7 WHERE NREG_NEW = '" & NREG_NEW & "';")

    Do While Not Rst.EOF    'lo recorremos

        If Concat = "" Then 'Si es la primera vez

            Concat = Rst!clas_pot_1 'Ponemos el valor de CLAS_POT_1

        ElseIf InStr(Concat, Rst!clas_pot_1) = 0 Then

            'En caso contrario, y si no existe ya ese texto,

            'lo añadimos

            Concat = Concat & " | " & Rst!clas_pot_1

        End If

        Rst.MoveNext

        DoEvents

    Loop

    ConcatenarCLAS_POT_1 = Concat 'Devolvemos el resultado

    Rst.Close   'Cerramos el recordset

    Set Rst = Nothing   'Vaciamos la variable

End Function

" Select ...... Where A = 'Pepe' And Pagado Is Null "

Parameters BBB As String; Select * From .... Were XXX = [AAA];