Duda sobre VBA INSERT INTO

Hola. Soy nuevo en el foro. Primero darles gracias por aceptarme.
Ya hace un tiempo he programado en VBA Excel. Y en ese campo se puede decir que me defiendo. Decidí empezar a hacerlo en VBA Access y llevo un mes tomando cursos en línea y pues ahí la llevo. Pero clero me falta mucho tramo por recorrer para defenderme.
Mi Pregunta es la siguiente:
Cree un formulario en blanco desde donde el usuario da de alta a un Proveedor.
Lo hago con .execute y una instrucción SQL (INSERT INTO). En mi tabla de Proveedores tengo un ID del Proveedor que es un campo clave.
Todo lo hace Bien, pero cuando intento dar de alta otro proveedor con el mismo ID como es normal no lo registra, pero no entra al On error goto. Yo pensé que entraría al control de errores o marcaria algo que avisara que el registro ya existe, Y no hace nada. Intento ver si corriendo paso a paso existe un numero de error pero no se genera ninguno. razón lógica de porqué no entra al control de errores.
Seguramente este tema ya ha sido expuesto en este foro pero no tengo ni idea como buscarlo.

¿Cómo le hago para saber que en la base de datos no se ha añadido ningún registro por duplicidad del campo clave?

De antemano les agradezco su atención. Y espero ser yo el que ayude a otros en algún tiempo.

Private Sub BotonDarAlta_Click()
    Dim dbs As Database
    Dim camino As String
    Dim Parte1 As String
    Dim Parte2 As String
    Dim Parte3 As String
    
    On Error GoTo ManipularError
    
    camino = Application.CurrentProject.Path & "\"
    Set dbs = OpenDatabase(camino & "DBRIO.accdb")
    Parte1 = " INSERT INTO Productos(CodigoBarras, Articulo, "
    Parte2 = "Precio, Proveedor) VALUES "
    Parte3 = "(" & CampoCodigoBarras.Value & ", '" & CampoNombreArticulo.Value & "', " & CampoPrecio.Value & ", " & ComboProveedor.Value & ");"
    dbs.Execute Parte1 & Parte2 & Parte3
     
    'dbs.Execute " INSERT INTO Productos " _
     '   & "(CodigoBarras, Articulo, Precio, Proveedor) VALUES " _
     '   & "(" & CampoCodigoBarras.Value & ", " & CampoNombreArticulo.Value & ", " & CampoPrecio.Value & ", " & ComboProveedor.Value & ");"
    dbs.Close
    
ManipularError:
    x = Err.Number
    If Err.Number <> 0 Then
        MsgBox "Hubo un error al realizar la operacion" & vbNewLine & _
        Err.Description, vbCritical, "Error"
    End If
    
End Sub

La solución más académica es comprobar antes si el registro existe ... eso lo puedes hacer con un Dlookup, ...