Replace line:
Set ItemAProcurar = LviewClientes.FindItem(InputBox("Introduza o Item a Pesquisar?", "Procurar", "", Me.ScaleWidth / 3, Me.Height / 2), lvwSubItem, , lvwPartial)
with this one:
Set ItemAProcurar = LviewClientes.FindItem(InputBox("Introduza o Item a Pesquisar?", "Procurar", "", Me.ScaleWidth / 3, Me.Height / 2), lvwText, , lvwPartial)
Plamen Ivanov
MCSD .NET Early Achiever and MCAD .NET Charter Member (VB .NET/SQL Server 2000)
MCSD (VB 6.0/SQL Server 2000)
VB (.NET) - what other language do you need in the whole Universe?...
