Access - concatenar datos de campo de tabla

Dim Concat As String, Rst As DAO.Recordset

'Abrimos un recordset con todos los registros corespondientes a Notadepedido en form series. notadepedio

Set Rst = CurrentDb.OpenRecordset("SELECT Series.series FROM Series WHERE [Nota de Pedido] = '" & Form_Series.NotadePedido & "';")

Do While Not Rst.EOF    'lo recorremos

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

        Concat = Rst!Series 'Ponemos el valor de CLAS_POT_1

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

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

        'lo añadimos

        Concat = Concat & "/" & Rst!Series

    End If

    Rst.MoveNext

    DoEvents

Loop

ConcatenarCLAS_POT_1 = Concat 'Devolvemos el resultado

Rst.Close   'Cerramos el recordset

Set Rst = Nothing   'Vaciamos la variable

MsgBox ConcatenarCLAS_POT_1