Eccoti accontentato...

Allora, per recarti sul record desiderato, dovrai attivare l'evento click sulla listbox in questo modo:

Private Sub lstListBox1_Click()
Dim nGoRecord as integer
nGoRecord = lstListBox1.ListIndex
With rstCodici ' Riposizionamento del puntatore sul record scelto
.Index = "indice"
.Seek ">=", StringaRicerca
.Move nGoRecord
End With

... continuazione tuo codice...

end sub

In pratica devi "riposizionare" il puntatore al primo dei record che soddisfa la condizione di ricerca. Di seguito uso la variabile "nGoRecord" che mi indica di quante posizioni mi devo muovere (valore dato da lstListBox1.ListIndex) per raggiungere il record "cliccato".
Move nGoRecord mi sposta quindi il puntatore al record selezionato.
Da qui dovrai tu scegliere cosa fare; se aprire un form per la modifica o altro.
Fammi sapere, ok?