When inserting strings (text) into a database they need to be enclosed by single qoutes

Code:
sqlstrInsert = "INSERT INTO " & "Date_Cert_Results (Type_of_Data, Check_Area, Product_Code) values ('" & td & "','" & ca + "','" & pc & "')"