SoloCodigo

Hola amigos, tengo un string muy largo donde tengo una insercion de registros

esto:
 
Wsql = "INSERT INTO TPreguntas (area,linea,preg2,gerenteSoD,gerenteJ,supervisor,preg3,idea3,preg4,idea4,preg5,idea5,preg6,preg7,preg8,preg9,idea9,preg10,idea10,preg11,idea11,preg12,idea12,preg13,idea13,preg14,idea14,preg15,idea15) VALUES ('" & cmb_areas.Text & "','" & txtlinea.Text & _
"','" & cmb_gerenteSoD.Text & "','" & cmb_gerenteJ.Text & "','" & cmb_supervisor.Text & _
"','" & cmbPreg2.Text & "','" & cmbPreg3.Text & "','" & txtidea3.Text & _
"','" & cmbPreg4.Text & "','" & txtidea4.Text & _
"','" & cmbPreg5.Text & "','" & txtidea5.Text & _
"','" & cmbPreg6.Text & "','" & cmbPreg7.Text & _
"','" & txtentrena.Text & "','" & cmbPreg9.Text & "','" & txtidea9.Text & _
"','" & cmbPreg10.Text & "','" & txtidea10.Text & _
"','" & cmbPreg11.Text & "','" & txtidea11.Text & _
"','" & cmbPreg12.Text & "','" & txtidea12.Text & _
"','" & cmbPreg13.Text & "','" & txtidea13.Text & _
"','" & cmbPreg14.Text & "','" & txtidea14.Text & _
"','" & cmbPreg15.Text & "','" & txtidea15.Text & "')"

PARA INSERTAR HAGO ALGO COMO ESTO...

 With cmdGUARDAR
      .ActiveConnection = cnn
      .CommandType = adCmdText
      .CommandText = Wsql
      .Execute
 End With
  Set cmdGUARDAR = Nothing

ESTO ES SOLO LA MITAD DE LA CADENA QUE DESEO INSERTAR... LA CORTE PARA QUE FUERA MAS CHICA... PERO AL MOMENTO DE DEBUGGER ME MUESTRA SOLO LA MITAD DE LA CADENA... NO SE SI EL PROBLEMA SEA DEL STRING O DEL RECORDSET??   PODRIAN AYUDARME???