请一段简单的代码。。。实在不知道怎么写

就是一个LISTBOX中有许多可以复选的职工，点击添加后，可以将这些职工一个个添加到另一个LISTVIEW中（用这个控件是因为我想将这些员工的其他许多信息一起调出来），然后当有重复的添加时，要提示已存在，我弄了半天写的都乱七八糟了。。结果是如果选中了2个以上在LISTVIEW中已存在的职工的时候，它就报2个以上已存在的消息。。哎我实在编不来求高手能解救下谢谢。。
For c = 0 To PerInfo.ListCount - 1
    If PerInfo.Selected(c) = True Then
       If TrainInfo.ListItems.Count <> 0 Then
          For d = 1 To TrainInfo.ListItems.Count
          If Left(PerInfo.list(c), 10) <> TrainInfo.ListItems(d) Then
             flag = False
          Else
             MsgBox "此职工已添加！", 48, "系统提示"
             GoTo 1
          End If
          Next d
       If flag = False Then
          conn.Open
          rs.Open "select 职工基本信息表.工号,职工基本信息表.姓名,职工基本信息表.职务,门店信息表.名称,部门.部门名 from ((职工基本信息表 inner join 门店信息表 on 职工基本信息表.所在门店=门店信息表.门店号)inner join 部门 on 职工基本信息表.部门=部门.部门号) where 工号=left('" & PerInfo.list(c) & "',10)", conn, adOpenKeyset, adLockOptimistic
          Set list = TrainInfo.ListItems.add(, , rs("工号"))
              list.SubItems(1) = rs("姓名")
              list.SubItems(2) = rs("名称")
              list.SubItems(3) = rs("部门名")
              list.SubItems(4) = rs("职务")
          rs.Close
          conn.Close
       End If
          
       Else
          conn.Open
          rs.Open "select 职工基本信息表.工号,职工基本信息表.姓名,职工基本信息表.职务,门店信息表.名称,部门.部门名 from ((职工基本信息表 inner join 门店信息表 on 职工基本信息表.所在门店=门店信息表.门店号)inner join 部门 on 职工基本信息表.部门=部门.部门号) where 工号=left('" & PerInfo.list(c) & "',10)", conn, adOpenKeyset, adLockOptimistic
          Set list = TrainInfo.ListItems.add(, , rs("工号"))
              list.SubItems(1) = rs("姓名")
              list.SubItems(2) = rs("名称")
              list.SubItems(3) = rs("部门名")
              list.SubItems(4) = rs("职务")
          rs.Close
          conn.Close
       End If
    End If
1:    Next c
End Sub这是我写的看不下去的朋友就不要看了。。实在很惭愧- -