rs.Open " select ID,Data,PA1,PA2,PA3,PA4,PA5 From Archivio", cn, 3, 3

Do Until rs.EOF


comb(1) = (rs("PA1"))
comb(2) = (rs("PA2"))
comb(3) = (rs("PA3"))
comb(4) = (rs("PA4"))
comb(5) = (rs("PA5"))
comb(6) = (rs("ID"))
For i = 1 To 5

If comb(i) = 29 Then
List3.AddItem comb(i) & " " & comb(6) & " " & rs("Data")
End If


Next i

rs.MoveNext
Loop
cosi facendo trovo tutti i numeri scelti, in questo caso il 29

ho impostato la listbox : sorted = false
cosi facendoho messo in ordine l'uscita per data
se cerco di ordinarli tramite ID non va bene l'ordine


cmq , la ricerca viene fatta solo per il numero 29

se dovessi fare una ricerca generale su tutte e 90 , per poi farmi evidenziare il piu' ritardatario?