把字符串转换成数据库SQL语句格式

'把字符串转换成数据库sql语句格式
'-------------------------------------------------
function allstr2database(str,strtype)
    dim strtemp:strtemp=str
    select case strtype
        case ""
        case "num"
            strtemp = clng(strtemp)
        case "string" '无trim
            strtemp = replace(strtemp, "'", "''")
        case "str_br" '无trim,把回车转换为<br>，一般用于多行文本输入
            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", "")
        case "strings"
        case else
    end select

    allstr2database = strtemp
end function