Busca Dinãmica em ListView

[nossila 0]

Pessoal,Criei essa função que lista todos os fornecedores cadastrados em ListView, mas queria selecionar um item aleatório. Exemplo quero criar um caixa de texto ao digitar o código do fornecedor irá selecionar o fornecedor correspondente ao código na lista.Portanto, como faço isso.Public Sub ListaClientes()'Limpa o cabeçalhoListViewClientes.ColumnHeaders.ClearListViewClientes.ListItems.ClearIf AdoClientes.State = 1 Then Set AdoClientes = Nothingsql = "select fornecedor.cod_fornecedor,fornecedor.nome_empresa,fornecedor.nome_contato,fornecedor.telefone from fornecedor order by nome_empresa"AdoClientes.Open sql, gconexao, adOpenKeyset, adLockPessimisticgconexao.Execute sql'Cria o cabeçalho da controle listviewListViewClientes.ColumnHeaders.Add , , "Código", 903ListViewClientes.ColumnHeaders.Add , , "Nome da Empresa", 3800, lvwColumnLeftListViewClientes.ColumnHeaders.Add , , "Nome do Contato", 1800, lvwColumnLeftListViewClientes.ColumnHeaders.Add , , "Telefone", 1300, lvwColumnLeft'Preenche o controle listview com os dados da tabelaDim I As IntegerFor I = 0 To AdoClientes.RecordCount - 1Set LIClientesID = ListViewClientes.ListItems.Add(, "A" & AdoClientes!cod_fornecedor, AdoClientes!cod_fornecedor)If Not IsNull(AdoClientes(0)) ThenLIClientesID.SubItems(1) = "" & AdoClientes!nome_empresa 'Nome da empresaLIClientesID.SubItems(2) = "" & AdoClientes!nome_contato 'Nome do contatoLIClientesID.SubItems(3) = "" & Format(AdoClientes!telefone, "(##)####-####") 'TelefoneEnd IfAdoClientes.MoveNextNext IEnd SubUm abraço.Nossila

[Luizgrs 0]

Dá uma olhada no método FindItem do listview.