Ho risolto

Guardando il tuo esempio...ci ho messo:


rsRecordSet6.MoveFirst
i = 0
Do While Not rsRecordSet6.EOF
Servizio.AddItem rsRecordSet6!CodServizio
Servizio.List(i, 1) = rsRecordSet6!DescrServizio

rsRecordSet6.MoveNext
i = i + 1
Loop
'chiude il recordset
rsRecordSet6.Close

Ciao e grazieeeeeeee