Ayuda urgente

[RyT]

Pero como lo hago?

Este es el codigo que tengo puesto:

Private Sub Command2_Click()
If Not vcodcliente = "" Then
rd.MoveLast
sql = "Insert into Clientes (Codcliente,Nombre,Apellidos,Direccion,DNI,Email,T elefono)Values (val('" & vcodcliente & "'), '" & vnombre & "', '" & vapellidos & "', '" & vdireccion & "', '" & vdni & "', '" & vemail & "', val('" & vtelefono & "'))"
db.Execute sql
MsgBox ("Cliente Insertado")
rd.MoveFirst
CargarValores
End If
End Sub


Y ademas me gustaria saber tambien, como hacer en el mismo codigo para cuando agrego un registro que compruebe que no existe otro registro con el mismo vcodcliente que el que yo quiero agregar y que si ya existe otro con el mismo vcodcliente me salga el mensaje diciendo "Codigo ya existente".

Muchas Gracias