Visual Basic - error 3021 tiempo de ejecucion AYUDA!!!!!!

me tira este error cuando la base de datos esta basia me pueden ayudar con el codigo pa este error y para validar cuando la clave primaria esta repetida y no se me caiga el programa. gracias

Hola

Sub or Function Clave()
On error goto ErrorClave
rst.AddNew
rst!Campo1
rst!CampoN
rst.Update
SalirClave:
Exit Sub or Function
ErrorClave:
if err.number=3021 then
MsgBox "Clave Duplicada"
else
MsgBox Err.Description
endif
resume SalirClave
end Sub or Function

Saludos

El error 3021 da cuando no encuentra ningun registro, lo que tienes que hacer es preguntar si no es fin de Archivo:
If Not Rs.Eof then
...
End If
Si unsas un AdoDC seria asi.
If Not AdoDc.Recordset.Eof then
En cuanto a la clave duplicada lo que yo hago es una rutina que crea codigo por ejemplo:
A00001
A00002
Etc.
Espero te sirva...