Cargar datos de un RecordSet en un ListView en VB

List1.Clear 'Limpiamos el List por si contiene datos
Rs.Execute "Select Id, Nombre as Clientes"
If Not oRs Is Nothing Then
If Not (oRs.BOF And oRs.EOF) Then
Rs.MoveFirst
Do While Not Rs.EOF
List1.AddItem Rs!DESCRI 'Dato a visualizar en el List
List1.ItemData(lst.NewIndex) = Rs!Id 'Dato que guardo para identificar el item seleccionado
Rs.MoveNext
Loop
List1.ListIndex = 0 'Le digo que se pare en la primer posicion
End If
End If