Hola... de casualidad estas usando como motor de BD SQL Server..???
si es así.. el problema es con la terminacion de "a.m ó p.m"
porque no intentas dandole formato..
sería algo como esto:
Fecha = Format(Now, "dd/mm/yyyy hh:mm:ss")
...
...etc
sql = insert into (fecha) values
'" & Fecha & "
' )"
Para que te salga todo menos "am ó pm"
Bueno... tenía en mi caso problemas de ese tipo y con eso lo resolví...
Suerte...
