Error al insertar en la bbdd en una pda

[rdea]

Hola, aqui va el fragmento, es la version verde, todavia no puse los parametros porque fue un codigo que tenia hecho anteriormente un programador en mi empresa que no los usaba.
el codigo es muy simple, ya comprobe si los datos a insertar son cadena o entero.

como se puede ver, leo la linea y recogo el array de cadenas.

Dim Sr As StreamReader
Dim Linea As String
'array de cadenas en los que introduzco cada dato leido de la linea.
Dim Cols As String()
Dim Comando As SqlCeCommand
Dim Dr As SqlCeDataReader
Try
Sr = New StreamReader("ruta")
Linea = Sr.ReadLine
Linea.Remove(0, Linea.Length - 1)
Linea = Sr.ReadLine
'trans = conexion.BeginTransaction
If Me.conexion.State = Data.ConnectionState.Closed Then
Me.conexion.Open()
End If
Comando = New SqlCeCommand("delete from clientes", conexion)
Comando.ExecuteNonQuery()
Comando = Nothing
While Not IsNothing(Linea)
Cols = Linea.Split("|")

Comando = New SqlCeCommand("insert into clientes(codcliente,nombre,nombre_comercial,direcc ion,cod_postal,poblacion,provincia,pais,nif,telefo no1,telefono2,telefono3,fax,codFormaPago,RecargoEq uiv,codTarifa,descuento,tipofacturacion,tipoclient e,bloqueado,facturariva,direccion2,cod_Postal2,pob lacion2,provincia2,pais2,direccion3,cod_postal3,po blacion3,provincia3,pais3,observaciones) values ('" & Cols(0) & "','" & Cols(1) & "','" & Cols(2) & "','" & Cols(3) & "','" & Cols(5) & "','" & Cols(6) & "','" & Cols(7) & "','" & Cols(8) & "','" & Cols(9) & "','" & Cols(10) & "','" & Cols(11) & "','" & Cols(12) & "','" & Cols(13) & "'," & Cols(14) & ",'" & Cols(15) & "'," & Cols(16) & "," & Cols(17) & ",'" & Cols(18) & "'," & Cols(19) & ",'" & Cols(20) & "','" & Cols(21) & "','" & Cols(22) & "','" & Cols(24) & "','" & Cols(25) & "','" & Cols(26) & "','" & Cols(27) & "','" & Cols(28) & "','" & Cols(30) & "','" & Cols(31) & "','" & Cols(32) & "','" & Cols(33) & "','" & Cols(34) & "')", conexion)
Comando.ExecuteScalar()
'limpio el comando para evitar desbordamiento
Comando.Dispose()
'limpio el array
Array.Clear(Cols, 0, Cols.Length)
'leo la nueva linea.
Linea = Sr.ReadLine
End While
Sr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Sr.Close()
Me.conexion.Close()
End Try

pd: es una aplicacion q estoy desarollando.