先组装字符串再拆分，加强通用性

 1function prepareSql()
 2          

执行SQL语句时，再将传递过来的字符串进行拆分组装

 1            If numstr <> "" Then
 2                Cy = Split(numstr, "^")
 3                For i = 0 To UBound(Cy)
 4                    Cytmp = Split(Cy(i), "|")
 5                    colstr = colstr & Cytmp(0) & ","
 6                    valuestr = valuestr & Cytmp(1) & ","
 7                Next
 8            End If
 9            If chrstr <> "" Then
10                Cy = Split(chrstr, "^")
11                For i = 0 To UBound(Cy)
12                    Cytmp = Split(Cy(i), "|")
13                    colstr = colstr & Cytmp(0) & ","
14                    valuestr = valuestr & "'" & Cytmp(1) & "',"
15                Next
16            End If
17            colstr = Left(colstr, Len(colstr) - 1)
18            valuestr = Left(valuestr, Len(valuestr) - 1)
19            mySql = " insert into tblexamplanmain (fid," & colstr & ")" & "  values(" & maxid & "," & valuestr & ")"