Saudações a todos os amigos do fórum!

Preciso da ajuda de vocês na seguinte questão...

Tenho um formulário e um subformulário dentro dele. O formulário é para cadastro de clientes e o subformulário para cadastrar os cachorros dos cliente (obs.: cada cliente pode ter mais de um cachorro). Quando é feito o cadastro do cliente é gerado automaticamente o código para o mesmo, ok.

O que eu preciso é que quando o usuário pesquise o cliente através do código do cliente ela exiba no listview todos os cachorros pertencentes ao cliente (referenciado pelo código) ... eu já consegui fazer isso funcionar com essa lógica...

O código vai na guia cadastro de cães, procura o código do cliente, e joga no listview o nome do cachorro, porém no list só aparece o primeiro cachorro da lista, o segundo ou terceiro não aparece.

Segue código utilizado

ListView1.ListItems.Clear

Dim item As ListItem

Sheets("Cadastro_de_Cães").Activate
Range("C:C").Find(Códcliente_txt.Value).Select

Set item = ListView1.ListItems.Add(, , Selection.Offset(0, 1))
item.SubItems(1) = Selection.Offset(0, 3)
item.SubItems(2) = Selection.Offset(0, 4)