InputBox Issue

[sroot]

I have an inputbox that a user needs to put in a date, but for some reason the date is not working, every date shows in the table as 12/30/1899... What am i doing wrong? Here is what i have.

strDt = InputBox("Enter date of double")
CurrentDb.Execute "INSERT INTO tblDate([TheDate]) VALUES(" & strDt & ")"

 

[Gasman]

Probably need to surround with #
CurrentDb.Execute "INSERT INTO tblDate([TheDate]) VALUES(#" & strDt & "#)"

 

[sroot]

You are correct... i cant believe i didn't think about that. Thank you so much!