Got it thanks
DoCmd.RunSQL "INSERT INTO Log ( CAC, [Badge Number], [Badge Color], Rank, LastName, FirstName, MI, WorkNumber, Unit, MakeModel, RegNumber, TimeOut, TimeIn, Type )
SELECT CAC AS Expr1, [Badge Number] AS Expr2, [Badge Color] AS Expr3, Rank AS Expr4, [LastName] AS Expr5, [FirstName] AS Expr6, MI AS Expr7, [WorkNumber] AS Expr8, Unit AS Expr9, [MakeModel] AS Expr10, [RegNumber] AS Expr11, [TimeOut] AS Expr12, [TimeIn] AS Expr13, Type AS Expr14