Quote 변경 함수
' ######################################################################
' Function name : encQuote
' Parameter :
' value = 문자열
' Return : String
' Description : " To " / ' To '
' ######################################################################
Function encQuote(ByVal value)
If IsNull(value) Then value = ""
encQuote = Replace(Replace(value, "'", "'"), """", """)
End Function
' ######################################################################
' Function name : decQuote
' Parameter :
' value = 문자열
' Return : String
' Description : " To " / ' To ';
' ######################################################################
Function decQuote(ByVal value)
If IsNull(value) Then value = ""
decQuote = Replace(Replace(value, "'", "'"), """, """")
End Function