[Resolvido]Error em pesquisa em subformulário

Tenho este filtro em meus formulários, mas quando digita no campo txFavorecido aspas simples (') dá erro
Podem me ajudar a resolver isto?
Desde já agradeço.


Private Sub txFavorecido_Change()
Dim filtro As String
If Len(Me!txFavorecido.Text & "") = 0 Then
Me!SF_C_EXPEDICAO_ENTREGUE.Form.Filter = ""
Me!SF_C_EXPEDICAO_ENTREGUE.Form.FilterOn = False
Exit Sub
End If
filtro = "[FAV_NOME] like '*" & Me!txFavorecido.Text & "*'"
Me!SF_C_EXPEDICAO_ENTREGUE.Form.Filter = filtro (Linha que mostra o erro)
Me!SF_C_EXPEDICAO_ENTREGUE.Form.FilterOn = True

End Sub
Private Sub txFavorecido_Click()
Me!SF_C_EXPEDICAO_ENTREGUE.Form.Filter = ""
Me!SF_C_EXPEDICAO_ENTREGUE.Form.FilterOn = False
Me!txtProducao = Null
Me!txtSetor = Null
Me!txFavorecido = Null
Me!txDoc = Null
Me!txtId = Null
Me!txFavorecido.SetFocus
End Sub

Olá, seria de grande ajuda se postasse qual erro apresenta!
No entanto lhe adianto que terá sim problema com ', pois ela é utilizada para passar valores do tipo Texto.

Exemplo, se digita o texto: Fabio no campo do filtro, ele será enviado para o filtro assim:

[NomeCampo='Fabio'

Dessa forma se digitar uma ' ela irá dar erro, pois esse carácter e utilizado para inciar e terminar o valor do tipo Texto. Sugiro que desative esse Carácter nesse Campo de pesquisa!

Fábio, como faço para desabilitar a aspas simples para que não possa ser digitada nestes campos de pesquisa?

Obrigado pela atenção.

No evento ao PRESSIONAR tecla dessa caixa de texto coloque: (No meu caso o nome dela se chama Valo1)

Código:

Private Sub Valo1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 39 'Aspas Simples
KeyAscii = 0
End Select
End Sub

Aqui a lista com todos os ID de cada tecla
ic.unicamp.br/~everton/aulas/hardware/tabelaASCII.pdf

Boa Tarde Fábio.

Funcionou perfeitamente.

Deus lhe pague.

Abraços

Grato pelo retorno amigo, até a próxima se Deus Quiser!