Access - Access: Campo en consulta con varios valores separados por coma

Public Function UnirCodped(numordcpr As String) As String

    Dim Resultado As String, Rst As DAO.Recordset

    Set Rst = CurrentDb.OpenRecordset("Consulta1") 'Igual se podría hacer con la tabla

    Do While Not Rst.EOF    'Recorremos todo el recordset

        If Rst!numordcpr = numordcpr Then 'Si el numordcpr = al indicado

            Resultado = Resultado & IIf(Resultado = "", "", ", ") & Rst!codped 'lo añadimos a la cadena

        End If

        Rst.MoveNext 'vamos al siguiente registro

        DoEvents

    Loop    'repetimos el bucle

    Rst.Close 'cerramos el recordset

    Set Rst = Nothing 'vaciamos la variable

    UnirCodped = Resultado 'devolvemos el resultado

End Function