Lincoln, se vc estiver usando um campo de código do tipo inteiro ou autonumeração vc pode:
'... Preenchendo o list com os dados do bd
List1.AddItem RsTabelaCliente!Nome
List1.ItemData(List1.NewIndex) = RsTabelaCliente!CodigoCliente
'...
'para obter o código do itemdata
CódigoAtual = List1.ItemData(List1.listIndex)
Veja se resolve seu problema... Abraços, Sidnei