数据库添加记录

    我的strSQL语句比较长,如下
     strSQL = " INSERT INTO paravalue([serial],[upstype],[testtime],[name],[testtype],"
     strSQL = strSQL & " [逆变输出测试U21],[ 逆变输出测试F21],[逆变输出测试U22],[逆变输出测试F22],[电池欠压告警],"
     strSQL = strSQL & " [电池欠压保护],[均充转浮充],[充电电流],[电池过压告警],[ 充电电压],"
     strSQL = strSQL & " [通讯测试u2],[通讯测试u1],[通讯测试电池电压],[通讯测试p2],[通讯测试f1],"
     strSQL = strSQL & " [通讯异常],[输入源效应U21],[输入源效应U22],[输入源效应U23],[同步测试相位1],"
     strSQL = strSQL & " [同步测试相位2],[同步测试相位3],[同步测试相位4],[快速同步],[市电范围测试1],"
     strSQL = strSQL & " [市电范围测试2],[市电范围测试3],[市电范围测试4],[市电范围测试5],[市电范围测试6],"
     strSQL = strSQL & " [市电范围测试7],[市电范围测试8],[输出直流分量1],[输出直流分量2],[负载输出效应1],"
     strSQL = strSQL & " [负载输出效应2],[负载输出效应3],[旁路过载效应1],[旁路过载效应2],[冲击测试1],"
     strSQL = strSQL & " [冲击测试2],[短路实验],[市电接反],[风机功能],[开机自检] )"
     strSQL = strSQL & " VALUES("
     strSQL = strSQL & "'" & testserial.Text & "',"   '1
     strSQL = strSQL & "'" & Combo1.Text & "',"       '2
     strSQL = strSQL & "'" & testtime.Value & "',"    '3
     strSQL = strSQL & "'" & testname.Text & "',"     '4
     strSQL = strSQL & "'" & testtype.Text & "',"     '5
     strSQL = strSQL & "'" & Text3.Text & "',"    '6
     strSQL = strSQL & "'" & Text3.Text & "',"     '7
     strSQL = strSQL & "'" & Text3.Text & "',"       '8
     strSQL = strSQL & "'" & Text3.Text & "',"    '9
     strSQL = strSQL & "'" & Text3.Text & "',"     '10
     strSQL = strSQL & "'" & Text3.Text & "',"     '11
     strSQL = strSQL & "'" & Text3.Text & "',"    '12
     strSQL = strSQL & "'" & Text3.Text & "',"     '13
     strSQL = strSQL & "'" & Text3.Text & "',"    '14
     strSQL = strSQL & "'" & Text3.Text & "',"     '15
     strSQL = strSQL & "'" & Text3.Text & "',"      '16
     strSQL = strSQL & "'" & Text3.Text & "',"    '17
     strSQL = strSQL & "'" & Text3.Text & "',"     '18
     strSQL = strSQL & "'" & Text3.Text & "',"     '19
     strSQL = strSQL & "'" & Text3.Text & "',"    '20
     strSQL = strSQL & "'" & Text3.Text & "',"     '21
     strSQL = strSQL & "'" & Text3.Text & "',"    '22
     strSQL = strSQL & "'" & Text3.Text & "',"     '23
     strSQL = strSQL & "'" & Text3.Text & "',"      '24
     strSQL = strSQL & "'" & Text3.Text & "',"    '25
     strSQL = strSQL & "'" & Text3.Text & "',"     '26
     strSQL = strSQL & "'" & Text3.Text & "',"     '27
     strSQL = strSQL & "'" & Text3.Text & "',"    '28
     strSQL = strSQL & "'" & Text3.Text & "',"     '29
     strSQL = strSQL & "'" & Text3.Text & "',"    '30
     strSQL = strSQL & "'" & Text3.Text & "',"     '31
     strSQL = strSQL & "'" & Text3.Text & "',"      '32
     strSQL = strSQL & "'" & Text3.Text & "',"    '33
     strSQL = strSQL & "'" & Text3.Text & "',"     '34
     strSQL = strSQL & "'" & Text3.Text & "',"     '35
     strSQL = strSQL & "'" & Text3.Text & "',"    '36
     strSQL = strSQL & "'" & Text3.Text & "',"     '37
     strSQL = strSQL & "'" & Text3.Text & "',"    '38
     strSQL = strSQL & "'" & Text3.Text & "',"     '39
     strSQL = strSQL & "'" & Text3.Text & "',"      '40
     strSQL = strSQL & "'" & Text3.Text & "',"    '41
     strSQL = strSQL & "'" & Text3.Text & "',"     '42
     strSQL = strSQL & "'" & Text3.Text & "',"     '43
     strSQL = strSQL & "'" & Text3.Text & "',"    '44
     strSQL = strSQL & "'" & Text3.Text & "',"     '45
     strSQL = strSQL & "'" & Text3.Text & "',"    '46
     strSQL = strSQL & "'" & Text3.Text & "',"     '47
     strSQL = strSQL & "'" & Text3.Text & "',"     '48
     strSQL = strSQL & "'" & Text3.Text & "',"    '49
     strSQL = strSQL & "'" & Text3.Text & "')"     '50
    为什么调试时候对strSQL进行变量监视时候,只是这些,少了一些,如下,     " INSERT INTO paravalue([serial],[upstype],[testtime],[name],[testtype], [逆变输出测试U21],[ 逆变输出测试F21],[逆变输出测试U22],[逆变输出测试F22],[电池欠压告警], [电池欠压保护],[均充转浮充],[充电电流],[电池过压告警],[ 充电电压], [通讯测试u2],[通讯测试u1],
     
    执行DBcnn.Execute strSQL后,发现数据记录没有增加?
现在问题就是两个:一为什么strSQL不全?
                 二为什么数据没办法添加,也没有提示错误?