关于vb+ACCESS的问题

Question

高手帮个忙，我真的不知道写入语句哪错了。 
cnn.Execute ("insert into 任务清单(初库存现金,所得税,销售人员培训费所得税,产品推介会,发展渠道商,支付促销费用,ISO认证,品牌维护费支出,产品市场调研,更新应收款/应收款到期,贴现总额,贴现费用,加工费,核算直接成本,按订单供货,上交营业税,更新短期贷款/到期还贷,支付短期贷款利息,申请短期贷款,客户维护费支出,销售人员工资,销售人员奖金,行政管理费,其他收入,其他支出,媒体广告,销售人员培训费,库房租金,更新长期贷款/到期还贷,支付长期贷款利息,季度收入总计,季度支出总计,季/年末现金余额) _
    values('" & Text1(0).Text & "'," & "'" & Text1(2).Text & "','" & Text1(3).Text &"','" & Text1(4).Text &"','" & Text1(5).Text &"','" & Text1(8).Text &"','" & Text1(9).Text &"','" & Text1(10).Text &"','" & Text1(11).Text &"','" & Text1(12).Text &"','" & Text1(13).Text &"','" & Text1(14).Text &"','" & Text1(15).Text &"','" & Text1(16).Text &"','" & Text1(17).Text &"','" & Text1(18).Text &"','" & Text1(19).Text &"','" & Text1(20).Text & "','" & Text1(21).Text &"','" & Text1(22).Text"','" & Text1(23).Text  &"','" & Text1(24).Text &"','" & Text1(25).Text &"','" & Text1(32).Text &"','" & Text1(33).Text &"','" & Text1(36).Text &"')")  
  编译错误，语法错误！

Answer 1

看着太累了这样修改sql = ""
sql = sql & "insert into 任务清单( " & vbCrLf
sql = sql & "        初库存现金 " & vbCrLf
sql = sql & "        ,所得税 " & vbCrLf
sql = sql & "        ,销售人员培训费所得税 " & vbCrLf
sql = sql & "        ,产品推介会 " & vbCrLf
sql = sql & "        ,发展渠道商 " & vbCrLf
sql = sql & "        ,支付促销费用 " & vbCrLf
sql = sql & "        ,ISO认证 " & vbCrLf
sql = sql & "        ,品牌维护费支出 " & vbCrLf
sql = sql & "        ,产品市场调研 " & vbCrLf
sql = sql & "        ,更新应收款/应收款到期 " & vbCrLf
sql = sql & "        ,贴现总额 " & vbCrLf
sql = sql & "        ,贴现费用 " & vbCrLf
sql = sql & "        ,加工费 " & vbCrLf
sql = sql & "        ,核算直接成本 " & vbCrLf
sql = sql & "        ,按订单供货 " & vbCrLf
sql = sql & "        ,上交营业税 " & vbCrLf
sql = sql & "        ,更新短期贷款/到期还贷 " & vbCrLf
sql = sql & "        ,支付短期贷款利息 " & vbCrLf
sql = sql & "        ,申请短期贷款 " & vbCrLf
sql = sql & "        ,客户维护费支出 " & vbCrLf
sql = sql & "        ,销售人员工资 " & vbCrLf
sql = sql & "        ,销售人员奖金 " & vbCrLf
sql = sql & "        ,行政管理费 " & vbCrLf
sql = sql & "        ,其他收入 " & vbCrLf
sql = sql & "        ,其他支出 " & vbCrLf
sql = sql & "        ,媒体广告 " & vbCrLf
sql = sql & "        ,销售人员培训费 " & vbCrLf
sql = sql & "        ,库房租金 " & vbCrLf
sql = sql & "        ,更新长期贷款/到期还贷 " & vbCrLf
sql = sql & "        ,支付长期贷款利息 " & vbCrLf
sql = sql & "        ,季度收入总计 " & vbCrLf
sql = sql & "        ,季度支出总计 " & vbCrLf
sql = sql & "        ,季/年末现金余额 " & vbCrLf
sql = sql & "        )  " & vbCrLf
sql = sql & "  values( " & vbCrLf
sql = sql & "        '" & Text1(0).Text & "' " & vbCrLf
sql = sql & "        ," & Text1(1).Text & " " & vbCrLf
sql = sql & "        '" & Text1(2).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(3).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(4).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(5).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(8).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(9).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(10).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(11).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(12).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(13).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(14).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(15).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(16).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(17).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(18).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(19).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(20).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(21).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(22).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(23).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(24).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(25).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(32).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(33).Text & "' " & vbCrLf
sql = sql & "        ,'" & Text1(36).Text & "' " & vbCrLf
sql = sql & "        )"
cnn.Execute (sql)

Answer 2

ss = ""
ss = ss + "insert into 任务清单(初库存现金,所得税,销售人员培训费所得税,产品推介会,发展渠道商,支付促销费用,ISO认证,品牌维护费支出,产品市场调研,更新应收款/应收款到期,贴现总额,贴现费用,加工费,核算直接成本,按订单供货,上交营业税,更新短期贷款/到期还贷,支付短期贷款利息,申请短期贷款,客户维护费支出,销售人员工资,销售人员奖金,行政管理费,其他收入,其他支出,媒体广告,销售人员培训费,库房租金,更新长期贷款/到期还贷,支付长期贷款利息,季度收入总计,季度支出总计,季/年末现金余额)"
ss = ss + "values('" & Text1(0).Text & "'," & 
                 "'" & Text1(2).Text & "','" & 
                       Text1(3).Text &"','" & 
                       Text1(4).Text &"','" & 
                       Text1(5).Text &"','" & 
                       Text1(8).Text &"','" & 
                       Text1(9).Text &"','" &
                       Text1(10).Text &"','" & 
                       Text1(11).Text &"','" &
                       Text1(12).Text &"','" & 
                       Text1(13).Text &"','" & 
                       Text1(14).Text &"','" & 
                       Text1(15).Text &"','" & 
                       Text1(16).Text &"','" &
                       Text1(17).Text &"','" & 
                       Text1(18).Text &"','" & 
                       Text1(19).Text &"','" &
                       Text1(20).Text & "','" &
                       Text1(21).Text &"','" & 
                       Text1(22).Text"','" & 
                       Text1(23).Text  &"','" & 
                       Text1(24).Text &"','" & 
                       Text1(25).Text &"','" & 
                       Text1(32).Text &"','" & 
                       Text1(33).Text &"','" &
                       Text1(36).Text &"')"