Code for a "Search button", lookups the record if not found adds the record to the table.
I don't recognize where the 3421 Data type conversion error comes from.
Private Sub Search_Click()
On Error GoTo Error_Search_Click:
Dim db As DAO.Database
Dim rstCalibrationGroup As DAO.Recordset...