CurrentDB.Execute Insert Into with date variable

[ketbdnetbp]

Evidently, I'm having one of those moments. Any help would be appreciated.

dim dbs as Database
Set dbs = CurrentDB
dim x1 as Date
x1 = Now()
dim w1 as long
w1 = Me![cboEntity].Value
dim mySString as String
mySString ="INSERT INTO tblSession (fkUserID, fkEntityID, sessiondteStart) VALUES (Me![txtUID4S], w1,x1)"
CurrentDB.Execute mySString, dbFailOnError

Code is throwing error 3061 parameter and I had some syntax errors as well in the vbeditor.

with the x1 variable I have tried several versions with combinations of '"# " & x1 & "#"', but can't seem to get it to work.

Thanks, for any help.

Jim

[June7]

Concatenate variables.

"INSERT INTO tblSession (fkUserID, fkEntityID, sessiondteStart) VALUES (" & Me![txtUID4S] & ", " & w1 & ", #" & x1 & "#)"

Note the # delimiters for date field parameters. Text field would need apostrophe delimiters.

[ketbdnetbp]

June7 - Thanks so much for your help. I'll mark this as solved. Jim