Come ha già evidenziato Oregon,
il rs lo devi scorrere con un ciclo, ad esempio:
codice:
'... ... ...
PrimoRecorset.Source = "SELECT IDAbbonato, Nome, Cognome FROM tblAbbonati WHERE Cognome LIKE ('" & UserName & "%')"
PrimoRecorset.Open , Connetti
Dim iK As Integer
Do Until (PrimoRecorset.EOF)
lstRubrica.AddItem PrimoRecorset("nome") & " " & PrimoRecorset("cognome")
lstRubrica.ItemData(lstRubrica.NewIndex) = PrimoRecorset("IDAbbonato")
PrimoRecorset.MoveNext
Loop
PrimoRecorset.Close
ove la variabile UserName contiene il nome da cercare.