In my day I found a function that what it does is clean the chains or parameters, everything related to sentences SQL
. So I pass the parameters before by this function to clean them
function clear_param(texto)
dim texto_final
texto_final=replace(texto, "SELECT", "")
texto_final=replace(texto_final, "‘", "")
texto_final=replace(texto_final, "UPDATE", "")
texto_final=replace(texto_final, "DELETE", "")
texto_final=replace(texto_final, "DROP", "")
texto_final=replace(texto_final, "UNION ", "")
texto_final=replace(texto_final, "%", "%")
texto_final=replace(texto_final, "%00", "")
texto_final=replace(texto_final, "%27", "")
texto_final=replace(texto_final, "%3D", "")
texto_final=replace(texto_final, " TOP ", "")
texto_final=replace(texto_final, " GROUP ", "")
texto_final=replace(texto_final, "=", "")
texto_final=replace(texto_final, ">", ">")
texto_final=replace(texto_final, "<", "<")
texto_final=replace(texto_final, "IIF", "")
texto_final=replace(texto_final, "FROM", "")
texto_final=replace(texto_final, " OR ", "")
texto_final=replace(texto_final, " AND ", "")
texto_final=replace(texto_final, " IN ", "")
texto_final=replace(texto_final, " CHR ", "")
texto_final=replace(texto_final, " ASC(", "")
texto_final=replace(texto_final, " CurDir ", "")
texto_final=replace(texto_final, "LEN(", "")
texto_final=replace(texto_final, "SHELL", "")
texto_final=replace(texto_final, "ASCII", "")
texto_final=replace(texto_final, "SUBSTRING", "")
texto_final=replace(texto_final, "LENGTH", "")
texto_final=replace(texto_final, "version", "")
texto_final=replace(texto_final, "exists", "")
clear_param=texto_final
End function