Comprobar en BD

[xplux]

Ola tengo el siguiente código que dejo abajo. Todo funciona perfecto hace las altas y todo en la bd de acces pero al introducir un dato que ya se encuentra en la clave principal pues como es de esperar no deja guardarlo y el programa casca como puedo modificar el código para que compruebe k existe ya y lo diga en msgbox por ejemplo.
El programa tiene un data para conectar la bd y con cajas de texto trabaja sobre la bd..

Aqui dejo el código:

Private Sub Command1_Click()
Dim sql As String
Dim db As Database
Set db = OpenDatabase(App.Path & "\empleados.mdb")
sql = "select * from Clientes where "
If Combo3.Text = "" Then
sql = sql & " cstr(" & Combo1.List(Combo1.ListIndex) & ")" & Combo2.List(Combo2.ListIndex) & "'" & Text1.Text & "'"
Else
sql = sql & " cstr(" & Combo1.List(Combo1.ListIndex) & ")" & Combo2.List(Combo2.ListIndex) & "'" & Text1.Text & "' " & _
Combo3.Text & " cstr(" & Combo4.Text & ")" & Combo5.Text & "'" & Text2.Text & "'"
End If

Data1.RecordSource = sql
Data1.Refresh


End Sub



Private Sub Command5_Click()
Programa.Show
Unload Me

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\empleados.mdb"
Combo1.Clear
Combo1.AddItem "cod_clientes"
Combo1.AddItem "nombre"
Combo2.Clear
Combo2.AddItem ">"
Combo2.AddItem "<"
Combo2.AddItem "="
Combo2.AddItem "=>"
Combo2.AddItem "=<"
Combo3.Clear
Combo3.AddItem "and"
Combo3.AddItem "or"
Combo4.Clear
Combo4.AddItem "cod_clientes"
Combo4.AddItem "nombre"
Combo5.Clear
Combo5.AddItem ">"
Combo5.AddItem "<"
Combo5.AddItem "="
Combo5.AddItem "=>"
Combo5.AddItem "=<"


End Sub

Private Sub Command2_Click()
Data1.Recordset.AddNew
End Sub



Private Sub Command4_Click()
Data1.Recordset.Delete
MsgBox ("El cliente fue eliminado")
End Sub

[Avellaneda]

Hola,

manda el error a una etiqueta.

On Error Goto Etiqueta
... código
... mas código
Exit sub
Etiqueta:
If Err.Number = (aquí el número de error que te sale en el mensaje antes de cascar) Then
MsgBox "La clave ya existe"
End Sub