Thanks, I actually have been working with this
the code is here
strStatus = "Open"
strInput2 = InputBox(Prompt:="Please add the Date of Failure. It is necessary to create a new record.", Title:="Add the Date Of Failure"

dtFailure = CDate(strInput2)
strSQL = "INSERT INTO tblNCProduct ([TrackingNumber],[LotNumber],[PartNo],[AccessCreatorStamp],[Status],[FailureDate],[CreateDateTimeStamp]) VALUES ('" & strInput & "','" & strLotNumber & "','" & strPartNumber & "', '" & strUser & "', '" & strStatus & "',' # dtFailure # ', Now() );"
The watch feature tells me that the variable is changing to date but is now being called into my insert into statement
"INSERT INTO tblNCProduct ([TrackingNumber],[LotNumber],[PartNo],[AccessCreatorStamp],[Status],[FailureDate],[CreateDateTimeStamp]) VALUES ('an001','testrecord','1048-00', 'mccja01', 'Open',' # dtFailure # ', Now() );"
I will keep working to see how to get it to accept this variable as a date. Always another problem/opportunity opening.
I have declared all my variables but not included all the preliminary code.