Sigo sin poder inserta un nuevo registro creo que me voy a volver loco son 64 registros yla fotma la cual inserto siempre es asi
cmd.ActiveConnection = conn
cmd.CommandType = adCmdText
cmd.CommandText = " insert into remesa (tipo_credito,u_pago,descrip_ugestion,u_gestion,ex pediente,gestor,status,fecha_promesa,monto_promesa ,asignacion,fecha_dev,fecha_actualizacion,saldo_ac tualizado,inf_adicional1,inf_adicional2,nue_pag_vd os,contrato,nombre,rfc,calle,colonia,ciudad,poblac ion,cp,tel_casa,tel_empleo,otro_tel,fecha_corte,fe cha_contratacion,importe_credito,plazo_contratado, importe_mensualidad,tipo_credito_contratado,import e_pagos,mes_pago_especial,pagos_vdos,saldo_vencido ,saldo_insoluto,saldo_total,marca_vehiculo,tipo_ve hiculo,modelo_vehiculo,serie_vehiculo,motivo_recha zo,nombre_aval,tel1_aval,tel2_aval,nom_ref1,tipo_r ef1,tel_ref1,nomb_ref2,tipo_ref2,tel_ref2,nom_ref3 ,tipo_ref3,tel_ref3,estado,empresa,dom_empresa,tel efonos,cargo_titular,jefe_inmediato,usuario,fecha_ remesa) Values ( " & _
" '" & txttipo_credito.Text & "'," & txtu_pago.Text & ",'" & txtdescrip_ugestion.Text & "','" & txtu_gestion.Text & "'," & txtexpediente.Text & ",'" & txtgestor.Text & "','" & txtstatus.Text & "','" & txtfecha_promesa.Text & "'," & txtmonto_promesa.Text & ",'" & txtasignacion.Text & "','" & txtfecha_dev.Text & "','" & txtfecha_actualizacion.Text & "'," & txtsaldo_actualizado.Text & ",'" & txtinf_adicional1.Text & "','" & txtinf_adicional2.Text & "'," & txtnue_pag_vdos.Text & "," & txtcontrato.Text & " " & _
" '" & txtnombre.Text & "','" & txtrfc.Text & "','" & txtcalle.Text & "','" & txtcolonia.Text & "','" & txtciudad.Text & "','" & txtpoblacion.Text & "'," & txtcp.Text & "," & txttel_casa.Text & "," & txttel_empleo.Text & "," & txtotro_tel.Text & ", " & _
" " & txtfecha_corte.Text & ",'" & txtfecha_contratacion.Text & "'," & txtimporte_credito.Text & "," & txtplazo_contratado.Text & "," & txtimporte_mensualidad.Text & ",'" & txttipo_credito_contratado.Text & "'," & txtimporte_pagos.Text & "," & txtmes_pago_especial.Text & "," & txtpagos_vdos.Text & "," & txtsaldo_vencido.Text & "," & txtsaldo_insoluto.Text & "," & txtsaldo_total.Text & ", " & _
" '" & txtmarca_vehiculo.Text & "','" & txttipo_vehiculo.Text & "','" & txtmodelo_vehiculo.Text & "','" & txtserie_vehiculo.Text & "','" & txtmotivo_rechazo.Text & "','" & txtnombre_aval.Text & "','" & txttel1_aval.Text & "','" & txttel2_aval.Text & "','" & txtnom_ref1.Text & "','" & txttipo_ref1.Text & "','" & txttel_ref1.Text & "','" & txtnomb_ref2.Text & "','" & txttipo_ref2.Text & "','" & txttel_ref2.Text & "','" & txtnom_ref3.Text & "','" & txttipo_ref3.Text & "','" & txttel_ref3.Text & ",'" & txtestado.Text & "','" & txtempresa.Text & "','" & txtdom_empresa.Text & "','" & txttelefonos.Text & "','" & txtcargo_titular.Text & "','" & txtjefe_inmediato.Text & "','" & lblusuario.Caption & "','" & lblfecha.Caption & "') "
Set rs = cmd.Execute()
pero me sige enviando error en una , diganme existe algna otra fora de insertar una cantidad grnade de registros
