Error while Updating the Table

[Sharad]

I have a Form that I use to enter the data into the Table. I have the code posted below. When I click Add Record some text Fields change to "False", others change to "0" and date fields end up changing the dates to 1899, etc. I cannot update the table. I am stumped ! Need all the help I can get. Thanks.

'Use Insert function to update the Table with appropriate values as entered in the Data Entry form
strQuote = "'"
StrSql = "INSERT INTO tblQAIssues (ActionIDNumber, AreaOfConcern, LineNumber, HLNumber, Problem, ActionPoint1, ActionPoint2, ActionPoint3, ActionBy, EstimatedHours, Cost, EstimatedAmount, LossValue, RecordDate, DueDate, CompletionDate, Status, VerifiedBy, ApprovedBy) VALUES (" & strQuote & txtActionReportNum.Value & strQuote & "," & strQuote & cboAreaOfConcern.Value & strQuote & "," & strQuote & cboLineNumber.Value & strQuote & "," & strQuote & txtHLNumber.Value & strQuote & "," & strQuote & txtProblem.Value & strQuote & "," & strQuote & txtActionPoint1.Value & strQuote & "," & strQuote & txtActionPoint2.Value & strQuote & "," & strQuote & txtActionPoint3.Value & strQuote & "," & strQuote & cboActionBy.Value & strQuote & "," & strQuote & txtEstimatedHours.Value & strQuote & "," & strQuote & txtCost.Value & strQuote & "," & strQuote & txtEstimatedAmount.Value & strQuote & "," & strQuote & txtLossValue.Value & strQuote & "," & strQuote & txtRecordDate.Value & strQuote & ","
StrSql = StrSql & strQuote & txtDueDate.Value & strQuote & "," & strQuote & txtCompletionDate.Value & strQuote
StrSql = StrSql & "," & strQuote & txtCurrentStatus.Value & strQuote & "," & strQuote & cboVerifiedBy.Value & "," & strQuote & txtCurrentStatus.Value & strQuote & "," & strQuote & cboVerifiedBy.Value & strQuote & "," & strQuote & cboApprovedBy.Value & strQuote & ")"
MsgBox (StrSql)
DoCmd.RunSQL (StrSql)