sql$ = "Insert Into Ficha (Nencuesta,Provincia, Distrito,CP,Fecha,Encuestadora,Prenombres,Apellidos,Sexo,Departamentonac,Provnac,Distrinac,Cpnac,Fechanac,Tienedni,Tramitedni,Resultadotramdni,Rechazoporque,Vecezrechazo," _
& "LE,Nle, Dniahora,Tienepartida,Nacimientoasentado,Cpinscripcion,Distritoinscripcion,Provinciainscripcion,Departamentoinscripcion,Problemaspartida,Partidabautismo,Cpbautizo,Distritobautizo,Provinciabautizo,Departamentobautizo,Partidaahora) " _
& "Values (" & Val(Text1) & ",'" & Combo2 & "','" & Combo3 & "','" & Text2 & "','" & Format(DTPicker1, "yyyy-mm-dd") & "','" _
& Combo24 & "','" & Text3 & "','" & Text4 & "','" & Combo4 & "','" & Combo5 & "','" & Combo6 & "','" & Combo7 & "','" & Text5 & "','" _
& Format(DTPicker2, "yyyy-mm-dd") & "','" & Combo8 & "','" & Combo9 & "','" & Combo10 & "','" & Text6 & "'," & Val(Text7) & ",'" & Combo11 & "','" & Text10 & "','" & Combo12 & "','" _
& Combo13 & "','" & Combo14 & "','" & Text8 & "','" & Combo17 & "','" & Combo16 & "','" & Combo15 & "','" & Combo18 & "','" & Combo19 & "','" & Text9 & "','" & Combo22 & "','" & Combo21 & "','" & Combo20 & "','" & Combo23 & "')"
Pegalo en un modulo, para que te des idea, ya que por cuestion de espacio, aqui sale mal y no apreciarias bien como hacerlo
Abraham