Errore nella visualizzazione dei dati[VB6].

[ANTAGONIA]

Buon giorno vorrei cortesemente un'aiuto!
Ho un data base chiamato veicoli.mdb ed i campi sono
id_veicolo,codVeicolo,nome,descrizione,disponibili tà,immatricolazione e path.
Questo è il cod.
Private Sub lstmagazzino_ItemCheck(Item As Integer)
conn.Open ""
rec.Open "select * from magazzino", conn
Do Until rec.EOF
If rec.Fields(0).Value = lstmagazzino.ListIndex + 1 Then
lstcodVeicolo.AddItem rec.Fields(1).Value
lstnome.AddItem rec.Fields(2).Value
lstdescrizione.AddItem rec.Fields(3).Value
lstdisponibilità.AddItem rec.Fields(4).Value
lstimmatricolazione.AddItem rec.Fields(5).Value
Image1.Picture = LoadPicture(rec.Fields(6).Value)
End If
rec.MoveNext
Loop
rec.Close
conn.Close
End Sub

Il problema è su questa parte di cod,perchè:
se faccio la ricerca singola su uno qualsiasi dei campi, per es(codVeicolo),mi aggiunge nella lstmagazzino 1 solo risultato(quello giusto)ma,quando,clicco sulla sua check e voglio vedere tutti gli altri dati relativi ad esso(codVeicolo),mi da come risultato sempre i dati del record n°1.

Credo che l'errore sia nella select,nel "rec.open"
Mi potete dare una mano per cortesia?
Grazie a tutti... spero di essere stato chiaro

[Mychy]

Forse non è soddisfatta questa istruzione:

If rec.Fields(0).Value = lstmagazzino.ListIndex + 1 Then