Fim dos caracteres indesejáveis

Uma postagem rápida e bem útil.

Nunca sabemos o que vai ser digitado pelo usuário e por isto é importante tratar estes dados antes de executar qualquer rotina que dependa deles.

A rotina abaixo implementa um tratamento do parâmetro recebido pela Function e retira os caracteres que podem causar algum erro de execução numa instrução SQL.
 

Function RetiraCSQL(txt As String)
'Retira caracteres que possuem incompatibilidade com o SQL
'Desenvolvida por Bruno Leite
'http://officevb.com

Dim CaractArray As Variant
Dim TempStr As String

TempStr = txt

'Array que contém os caracteres indesejáveis
CaractArray = Array("*", "%", ",", "+", "'", ":")

'Substituindo os caracteres na string recebida
For i = LBound(CaractArray) To UBound(CaractArray)
      TempStr = Replace(TempStr, CaractArray(i), " ")
Next i

'Retonando
RetiraCSQL = TempStr

End Function