Por si a alguien le sirve de ayuda he quitado los espacios de antes y despues de now() y me ha funcionado.
Antes: No funcionaba
gr="INSERT INTO grupoamigos (fecha) VALUES ('" & Now() & "')"
Set rs = conexionBD.Execute(gr)
Ahora: Ya funciona
gr="INSERT INTO grupoamigos (fecha) VALUES ('"& Now() &"')"
Set rs = conexionBD.Execute(gr)
Saludos
