Hola
El control que utilizo yo para mostrar una fecha con un calendario el es DTPicker, que es un combo que al desplegarlo muestra un calendario. Lo que quería decir es que puedes coger el valor del control e introducirlo en la clausula insert.
Código:
bd.execute "Insert into Tabla1(fecha) values(#" & Format(DTPicker1, "YYYY-MM-DD") & "#"
En tu caso tendrías que sustituir el DTPicker por el control que utilices.
--Saludos--