主题：多值字段拆分之后 组合字符串 得到的是多条重复数据，怎么修正呢？

Functions.Execute("谈话参与人多值拆分获取职务","王x,刘x","33d77272-30d8-411f-957b-e5ea137613ce")

内部函数代码如下：

Dim str As String = Args(0)
Dim guid As String = Args(1)
Dim ss As String =""
Dim cmd As New SQ LCo mmand
cmd.Con nectio nNa me = "主数据源"
For Each s As String In str.split(",")    '对传入的值进行拆分
    cmd.CommandText = "sel ect 姓名,职务 from 干部台账 where 姓名='" &  s & "'"
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        ss=  Values("姓名") & ":" & Values("职务")
        ss = ss & vbcrlf & ss
    End If
   
Next
output.show(ss)

输出得到：

王x:科员
王x:科员

上述代码怎么修正得到：

王x:科员
刘x:科员