Hola!
Si el origen del cuadro de lista es una lista de valores puedes utilizar, en el evento "Al cargar" del formulario, el siguiente código:
...
Private Sub...
Dim fechaActual as date
fechaActual=now()
me.nombreListBox.Additem(fechaActual)
end sub
...
Si el orgien del cuadro es una tabla o consulta la cosa ya es un poco más complicada. Lo que hay que hacer es cambiar el origen del cuadro de lista a "algo" que contenga los datos más la fecha actual. Es un proceso quizá un poco enrevesado, y por eso te he preparado este ejemplo (
https://www.mediafire.com/?180t2rtpcsgk9j6), donde están los pasos más o menos explicados.
Lo importante es que la ejecución de la consulta de creación de tabla que verás en el ejemplo se produzca ANTES de abrir el formulario donde tienes el cuadro de lista, dado que en caso contrario la tabla que te da los datos más la fecha actual queda bloqueada, lo que no te permitiría que se actualizase el origen del cuadro de lista.
A ver si lo puedes adaptar a tu BD.
Un saludo,
http://neckkito.siliconproject.com.ar
