[VB6] Includere valori selezionati da una ListBox in una query

[webatwork]

Dim condizione As String
condizione = "WHERE ID=" & List1.List(0)
For i = 1 To List1.ListCount - 1
    condizione = condizione & " OR ID=" & List1.List(i)
Next i
sql = "SELECT * FROM miaTabella " & condizione