Replace degli apici e pluripremiata

[ubbicom]

Ciao, sempre io...

Utilizzo questa funzione per il replace degli apici delle stringhe nelle query SQL, trovata con la ricerca (credits Optime):

function pulisci(stringa)
   pulisci = replace(stringa, "'", "''__")
end function

In questa maniera:

pulisci(Rs("CampoDB"))

Il problema è che quando il valore da inserire nel Db è nullo (vuoto) la funzione va in errore: Invalid use of Null: 'replace'.

Ho risolto il problema, con la pluripremiata di Optime, ma vorrei sapere se si può in qualche modo cambiare ed agire sulla funzione Pulisci per non andare singolarmente su ogni riga della query per prevedere l'azione quando il valore da inserire nel Db è nullo (vuoto).

E' possibile? Grazie.

Pluripremiata:

           if trim(Rs("CampoDB") & "[]") = "[]" then           
              SQL = SQL & "   , '' "
           else           
              SQL = SQL & "   , '" & pulisci(Rs("CampoDB")) & "' "  
           end if

[optime]

function pulisci(stringa)
   If IsNull(stringa) Then
      pulisci = stringa
   Else
      pulisci = replace(stringa, "'", "''")
   End If
end function

that easy!

[ubbicom]

Mizzica, mitico!