Fazer pesquisa por nome ou sobrenome!

Olá!

Tenho uma formulário de cadastro que está acontecendo o seguinte erro.

Quando aciono o botão "Consultar", ele só busca os registros se eu digitar os nomes completos.

Teria como fazer uma pesquisa ou só pelo nome ou pelo sobrenome?

Desde já agradeço!

Private Sub cmdConsultar_Click()

Dim ValorPesquisa As String

ValorPesquisa = InputBox("Digite o nome do cliente que você quer encontrar:")

DadosDadosP.Recordset.FindFirst "NomeC = '" & ValorPesquisa & "'"

If DadosDadosP.Recordset.NoMatch = True Then

MsgBox "Este registro não foi encontrado."

End If

End Sub