I alreay ask this where but the solution that give to me doesnt work. I have a list viw and want to make a search,but the listview method find only acepts the integrity of a field contents, i want make possible the usrs insert for example to leters and the program show every name tha had tha leters i am using this code on the search:

Dim ItemAProcurar As ListItem

Set ItemAProcurar = LviewClientes.FindItem(InputBox("Introduza o Item a Pesquisar?", "Procurar", "", Me.ScaleWidth / 3, Me.Height / 2), lvwSubItem, , lvwPartial)


If (ItemAProcurar Is Nothing) Then
MsgBox "Item Não Encontrado!", vbInformation, "Info"

Else
ItemAProcurar.EnsureVisible
ItemAProcurar.Selected = True
LviewClientes.SetFocus

End If

If anyone Could help me,its urgent