Отображает результат много раз в поиске Mulitselect Listbox в VB6

Question

Я создаю программу на vb6 с доступом ms. пока я ищу в базе данных из списка с множественным выбором в vb, он отображает результаты неправильно.

если я нажимаю первый элемент, он показывает один раз, если я нажимаю второй элемент, он показывает этот элемент два раза, я нажимаю третий элемент он показывает этот элемент три раза.

как решить эту

я пробовал код ниже

 For i = List1.ListCount - 1 To 0 Step -1
     If List1.Selected(i) = True Then
         If str <> "" Then str = str & ""

             If Val(List1.SelCount) = 1 Then
                 str = List1.List(List1.ListIndex)
             Else
                 str = str & " or name= " & List1.List(List1.ListIndex)
             End If
     End If
 Next i

 If str <> "" Then
     Set rs = db.OpenRecordset("select * from Customers where name= '" & str & "'")
     display
 End If

результат

 Kumar vasanth vasanth kannan kannan kannan

Answer 1

Попробуйте следующее:

Option Explicit

Private Sub Command1_Click()
   Dim i As Integer
   Dim str As String

   For i = List1.ListCount - 1 To 0 Step -1
      If List1.Selected(i) Then str = str & " or name = '" & List1.List(i) & "'"
   Next i

   str = Mid(str, 4)

   If str <> "" Then
      Set rs = db.OpenRecordset("select * from Customers where " & str)
      display
   End If
End Sub