The code copy is as follows:
'Convert strings to database SQL statement format
'-------------------------------------------------
FunctionAllStr2Database(str,strType)
DimstrTemp:strTemp=str
SelectCasestrType
Case""
Case "num"
strTemp=Clng(strTemp)
Case "string"'No Trim
strTemp=Replace(strTemp,"'","''")
Case"str_br"'No Trim, convert carriage return to <br>, generally used for multi-line text input
strTemp=Replace(Replace(strTemp,"'","''"),VbCrlf,"<br>")
Case"str_trim"'Trim
strTemp=Replace(Trim(strTemp),"'","''")
Case"nums"
strTemp=Trim(strTemp)
strTemp=Replace(strTemp,")","")
strTemp=Replace(strTemp,"(","")
strTemp=Replace(strTemp,"'","")
strTemp=Replace(strTemp,";","")
strTemp=Replace(strTemp,"","")
strTemp=Replace(strTemp,"or","")
strTemp=Replace(strTemp,"and","")
strTemp=Replace(strTemp,"delete","")
strTemp=Replace(strTemp,"select","")
strTemp=Replace(strTemp,"exec","")
strTemp=Replace(strTemp,"update","")
strTemp=Replace(strTemp,"select","")