Filtro múltiple (like ‘%código%’ and like ‘%fuente%’)

Esta función les va a servir un montón cuando tengan que hacer filtros ya sea con la propiedad filter del RecordSet o haciéndolo en consulta

Solo tienen que pasarle como parámetros lo que va a buscar
Ejemplo:
FiltroMultiple “Juan Pérez”,”Nombre”
Y les va a crear el Filtro así:

Nombre like ‘%Juan%’ and Nombre like ‘%Perez%’

Private Function FiltroMultiple(strCadena As String,strCampo as String) As String
Dim strFiltro As String
Dim Posicion As Byte
While Len(strCadena) > 0

Posicion = InStr(2, Trim(strCadena), " ")
If Posicion = 0 Then

FiltroMultiple = strFiltro & strCampo & " like '%" & ReemplazaComilla(Trim(strCadena)) & "%'"
Exit Function
Else
strFiltro = strFiltro & StrCampo & " like '%" & ReemplazaComilla(Mid(Trim(strCadena), 1, Posicion - 1)) & "%' and "
strCadena = Mid(strCadena, Posicion + 1)
End If
Wend
End Function

Si desean con Or, o le agregan un parámetro mas o le cambian el and por el Or en la función