Faça um select com o item do List ou tente busca pela propriedade Itemdata do List
quando for carregar o List faça assim:
List1.AddItem NomeDoCliente
List1.ItemData(List1.NewIndex)=CodigoDoCliente
fazendo assim voce guarda o codigo do cliente na propriedade ItemData
e quando alguem clicar em um item da lista
voce busca desta forma:
"where CodigoDoCliente=" & List1.ItemData(List1.ListIndex)
se nao conseguir da um grito
Abraços
