Hola Espero No Violar El reglamento pero ya habia cerrado el tema anterior ya que la duda rerferente a el ha sido resuelta antes que nada Hola Macro Antonio Saludos de Nuevo y molestando de nuevamente

fijate que como te comente el codigo que hiciste quedo super excelente te doy las gracias nuevamente pero fijate que tengo el problema que al anexar mas columnas tanto en la base de datos como en codigo para el listbox me marca el siguiente error " error 380 en tiempo de ejecucion" estube inventigando un poco y parece ser que la propiedad de listbox en este caso no admite en la propiedad mas de 10 columnas quisiera tu opinion y tu punto de vista al respecto y alguna sujerencia de antemano mil gracias en esta linea es

NIÑOS.List(NIÑOS.ListCount - 1, 10) = rs.Fields("sexo")[/HTML]

Ejemplo ayuda 1.3.xls

Efectivamente, un control combobox/listbox no admite mas de 10 columnas si se carga de modo manual, pero si las admite si se usa la propiedad RowSource.

En tu caso implica tener que cargar previamente los datos del recordset en una hoja y así poder utilizar dicha propiedad.

Sube de nuevo la base de datos.

hola macro antonio pude solucionar mi problema te agradezco con toda el alma todo lo que me apoyaste eres un genio saludos