Insert Into i tabel fejler

Hej
Nedenstående funktion kaldes via en autoexec-makro, men den melder at der er en syntaksfejl i Insert Into sætningen:

Function GetLogIn()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbllogin (DateTime, User) VALUES ('" & Now() & "' ,'" & Environ("UserName") & "')"
DoCmd.SetWarnings True
End Function

Nogen der kan se sig til rette på dette, mener selv at den skulle være ok,men ak og ve.

mvh Anders.