Evitar registro duplicados en una bd de access

[franko1809]

Tio prueba asi, solo cambiale los datos

Código:

Private Sub cmdGuardar_Click()
With adoProducto.Recordset
    .MoveFirst
    .Find "codcargo='" + Text1 + "'"
    
    If .EOF = False Then ' si llega al final y encuentra el codcargo
       MsgBox "Ya esta Inscripto"
    Else
       adoProducto.Recordset.AddNew
       adoProducto.Recordset.Fields("codcargo") = Text1.Text
       adoProducto.Recordset.Fields("nomcargo") = Text2.Text
       adoProducto.Recordset.Update
       dgProducto.Refresh
       Text1.Text = Empty
       Text2.Text = Empty
       Text1.SetFocus
     End If
End With
End Sub

Te enviara un mensaje si el codigo ya esta registrado, por otro lado puedes hacer que el codigo se autogenere el en el text1