Parâmetros Múltiplos para consultas em SQL

Esta função gera um parâmetro para usar com a instrução LIKE do SQL,
permitindo que o usuário possa escrever palavras compostas como critério
de busca.

Function Cria_Parametro_Multiplo(cParam)
Screen.MousePointer = vbHourglass
Dim cNew As String
cParam = Chr(42) & cParam & Chr(42)
For A = 1 To Len(cParam)
If Mid$(cParam, A, 1) = ” ” Then
cNew = cNew & Chr(42)
Else
cNew = cNew & Mid(cParam, A, 1)
End If
Next A
Cria_Parametro_Multiplo = cNew
Screen.MousePointer = vbDefault
End Function

OBS: O Caracter 42 é um asterisco.
No caso de outras bases, como ORACLE ou SQL Server, use o caracter 37 que é o percentual

Dica: Você pode utilizar uma InputBox para buscar o valor critério desejado pelo usuário.