se uso la listi index mi restituisce semplicemnte un numero...cmq ho risolto diversamente usando al posto della list boxa una combo box e con la funzione split mi vado a leggere il suo contenuto praticamente cosi

s = Split(Combo1.Text, " ")

cn7.Open "driver={Microsoft Access Driver (*.mdb)};dbq=clienti.mdb"
rs7.Open "SELECT * FROM tabella WHERE id = " & CInt(s(0)), cn7, 1