VB代码换行

Question

求教：
   知道VB代码怎么换行吗？
如：
cnn.Open '打开数据库连接
    Dim insert As String
    insert = "" '初始化
'    'SQL语句－－插入:INSERT INTO 表名（字段名1,字段名2）值('"值1"','"值2"')
 insert = "INSERT INTO PADIdataimput(id）values(' " & Trim(CheckString(OnChangeEDTi))& " '    
cnn.Close
cnn.Close前面那句 

Answer 1

Text1.Text = Text1.Text + _
       Text2.Text

Answer 2

Insert = "INSERT INTO PADIdataimput(id) values(' " & _
         Trim(CheckString(OnChangeEDTi)) & " ' "

Answer 3

insert = "INSERT INTO PADIdataimput(id,PADI1,PADI2,PADI3,PADI4,PADI5,plu1,plu2,plu3,plu4,plu5, _
    fu11,fu12,fu13,fu14,fu15,FAD11,FAD12,FAD13,FAD14,FAD15,lu1, _
    fu21,fu22,fu23,fu24,fu25,FAD21,FAD22,FAD23,FAD24,FAD25,lu2, _
    fu31,fu32,fu33,fu34,fu35,FAD31,FAD32,FAD33,FAD34,FAD35,lu3, _
    fu41,fu42,fu43,fu44,fu45,FAD41,FAD42,FAD43,FAD44,FAD45,lu4, _
    fu51,fu52,fu53,fu54,fu55,FAD51,FAD52,FAD53,FAD54,FAD55,lu5,up,uvl,product_name) values _
(...)"
报错：编译错误
      缺少：语句结束

Answer 4

Insert = "INSERT INTO PADIdataimput(id,PADI1,PADI2,PADI3,PADI4,PADI5,plu1,plu2,plu3,plu4,plu5," & _
    "fu11,fu12,fu13,fu14,fu15,FAD11,FAD12,FAD13,FAD14,FAD15,lu1," & _
    "fu21,fu22,fu23,fu24,fu25,FAD21,FAD22,FAD23,FAD24,FAD25,lu2," & _
    "fu31,fu32,fu33,fu34,fu35,FAD31,FAD32,FAD33,FAD34,FAD35,lu3," & _
    "fu41,fu42,fu43,fu44,fu45,FAD41,FAD42,FAD43,FAD44,FAD45,lu4," & _
    "fu51,fu52,fu53,fu54,fu55,FAD51,FAD52,FAD53,FAD54,FAD55,lu5,up,uvl,product_name) values (...)"

Answer 5

谢谢，有个新问题：
values ('" & Trim(CheckString(OnChangeEDTi)) & " ','" & Trim(CheckString(Text(60))) & " ','" & Trim(CheckString(Text(60))) & " ','" & Trim(CheckString(Text(61))) & " ','" & Trim(CheckString(Text(62))) & " ','" & Trim(CheckString(Text(63))) & " ','" & Trim(CheckString(Text(64))) & " ','" & Trim(CheckString(Text(55))) & " ','" & Trim(CheckString(Text(56))) & " ','" & Trim(CheckString(Text(57))) & " ','" & Trim(CheckString(Text(58))) & " ','" & Trim(CheckString(Text(59))) & " ','" & _
    " & Trim(CheckString(Text(0))) & " ','" & Trim(CheckString(Text(1))) & " ','" & Trim(CheckString(Text(2))) & " ','" & Trim(CheckString(Text(3))) & " ','" & Trim(CheckString(Text(4))) & " ','" & Trim(CheckString(Text(5))) & " ','" & Trim(CheckString(Text(6))) & " ','" & Trim(CheckString(Text(7))) & " ','" & Trim(CheckString(Text(8))) & " ','" & Trim(CheckString(Text(9))) & " ','" & Trim(CheckString(lu(1))) & " ','" & _
    " & Trim(CheckString(Text(19))) & " ','" & Trim(CheckString(Text(18))) & " ','" & Trim(CheckString(Text(17))) & " ','" & Trim(CheckString(Text(16))) & " ','" & Trim(CheckString(Text(15))) & " ','" & Trim(CheckString(Text(14))) & " ','" & Trim(CheckString(Text(13))) & " ','" & Trim(CheckString(Text(12))) & " ','" & Trim(CheckString(Text(11))) & " ','" & Trim(CheckString(Text(10))) & " ','" & Trim(CheckString(lu(2))) & " ','" & _
    " & Trim(CheckString(Text(20))) & " ','" & Trim(CheckString(Text(21))) & " ','" & Trim(CheckString(Text(22))) & " ','" & Trim(CheckString(Text(23))) & " ','" & Trim(CheckString(Text(24))) & " ','" & Trim(CheckString(Text(25))) & " ','" & Trim(CheckString(Text(26))) & " ','" & Trim(CheckString(Text(27))) & " ','" & Trim(CheckString(Text(28))) & " ','" & Trim(CheckString(Text(29))) & " ','" & Trim(CheckString(lu(3))) & " ','" & _
    " & Trim(CheckString(Text(30))) & " ','" & Trim(CheckString(Text(31))) & " ','" & Trim(CheckString(Text(32))) & " ','" & Trim(CheckString(Text(33))) & " ','" & Trim(CheckString(Text(34))) & " ','" & Trim(CheckString(Text(35))) & " ','" & Trim(CheckString(Text(36))) & " ','" & Trim(CheckString(Text(37))) & " ','" & Trim(CheckString(Text(38))) & " ','" & Trim(CheckString(Text(39))) & " ','" & Trim(CheckString(lu(4))) & " ','" & _
    " & Trim(CheckString(Text(40))) & " ','" & Trim(CheckString(Text(41))) & " ','" & Trim(CheckString(Text(42))) & " ','" & Trim(CheckString(Text(43))) & " ','" & Trim(CheckString(Text(44))) & " ','" & Trim(CheckString(Text(45))) & " ','" & Trim(CheckString(Text(46))) & " ','" & Trim(CheckString(Text(47))) & " ','" & Trim(CheckString(Text(48))) & " ','" & Trim(CheckString(Text(49))) & " ','" & Trim(CheckString(lu(5))) & " ','" & _
    " & Trim(CheckString(Numup)) & " ','" & Trim(CheckString(Numuvl)) & " ')报错：编译错误
      缺少：表达式