strSql = "SELECT * From TblAdressBook WHERE (((NOME + Chr(32) + SOBRENOME) Like '" & txtNome.Text & "'))"
rRs.Open strSql, dDb
While Not (rRs.EOF Or rRs.BOF)
lstNames.AddItem rRs.Fields!NOME & Chr(32) & rRs.Fields!SOBRENOME
rRs.MoveNext
Wend
Estou utilizando a função acima para localizar registros em um DB quando o nome + o sobrenome for igual a um textbox. A questão é q a consulta só retorna o valor se eu digitar no textbox o nome exato, não faz busca aproximada. Neste caso, se tiver procurando por Lucas Silva, e digitar apenas Lucas, o sistema não encontra o valor. Como corrigir isso?
strSql = "SELECT * From TblAdressBook WHERE (((NOME + Chr(32) + SOBRENOME) Like '" & txtNome.Text & "'))"
Troquei o sinal "=" por Like e ñ funcionou!
