Not In List - Add Item with 2 data fields

Private Sub cboOrderStatusID_NotInList(NewData As String, Response As Integer)
On Error GoTo err_OrderStatusID_NotInList
 
    Dim ctl As Control
    Dim strSQL As String
        
    ' Return Control object that points to combo box.
    Set ctl = Me!cboOrderStatusID
    ' Prompt user to verify they wish to add new value.
    If MsgBox(NewData & " is not in the Order Status list. Would you like to add it?", vbOKCancel) = vbOK Then
        ' Set Response argument to indicate that data is being added.
        Response = acDataErrAdded
        ' Add string in NewData argument to table.
        NewData = CapitalizeFirst(NewData)
        strSQL = " INSERT INTO tblOrderStatus ( OrderStatus ) SELECT '" & Proper(NewData) & "'"
        DoCmd.SetWarnings False
        DoCmd.RunSQL strSQL
        ctl.Value = NewData
        DoCmd.SetWarnings True
    Else
        ' If user chooses Cancel, suppress error message and undo changes.
        Response = acDataErrContinue
        ctl.Undo
    End If
        
exit_cboOrderStatusID_NotInList:
    Exit Sub
    
err_OrderStatusID_NotInList:
    If Err = 2113 Then
        Err = 0
        Resume Next
    Else
        MsgBox Str(Err)
        MsgBox Err.Description
        Resume exit_cboOrderStatusID_NotInList
    End If
End Sub