Visual Basic - clave principal duplicada!! como arreglo el error?

hola
tengo un ado con visual 6 linkeado a una base de datos de access 2000
sucede que mi clave prinicipal en la base de access es RUT

cuando ingreso una nueva entrada desde visual, no hay drama, pero cuando ingreso otra con el mismo rut el programa se cae
se supone que debo hacer tratamiento de errores, pero nose como

si alguien sabe agradeceria me pudiese ayudar

saludos desde chile

mira con esto podes hacerlo.

Private Sub Command1_Click()
On Error GoTo MyError
Dim cnn As New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ejemplo\mibase.mdb;Persist Security Info=False"

cnn.Execute "insert into tb_ejemplo (id,nada) values (2,'texto')"

Exit Sub


MyError:
If Err.Number = -2147467259 Then

MsgBox "Llave duplicada : " & Err.Number
Else
'cualquier otro error
MsgBox Err.Description & ": " & Err.Number
End If

End Sub