Visual Basic - Control de Errores procedente de SQL SERVER

Ante todo gracias por adelantado.

El problema es el siguiente:

Con el manejador de errores de Visual Basic me es imposible capturar un error de duplicacion de clave primaria, el error es:

Error "-2147217873 ":
Infracción de la restriccion PRIMARY KEY "tb_tarifa. No se puede insertar una clave duplicada en el objeto tb_tarifa

Yo creo que es porque se produce en el DBMS(En SQL server) y por tanto NO es posible capturarlo en VBasic.

Agradeceria cualquier sugerencia porque me es imposible capturar el error.

Gracias

El codigo es el siguiente:

'CONTROL de ERRORES en la introduccion de datos en la BASE DE DATOS
On Error GoTo Err_IntroduccionDatosBD:

Set objConnection = New ADODB.Connection
objConnection.Open "Provider=SQLOLEDB.1;INTEGRATED SECURITY=SSPI;User ID=Administrador;password=" & passwordBD & ";Initial Catalog=bdaliproser;Data Source=" & baseDatos
Set objRecordset = New ADODB.Recordset

objRecordset.Open "SELECT * FROM tb_tarifa", objConnection, adOpenDynamic, adLockBatchOptimistic
objRecordset.AddNew

objRecordset.Fields.Item("num_cliente").Value = txtNum_Cliente.Text
objRecordset.Fields.Item("cod_nucleo").Value = codNucleo

objRecordset.UpdateBatch 'ERROR cuando calve primaria duplicada
''''''''''''''''''''''''''''''''' No va al manejador de errores

Err_IntroduccionDatosBD:
If (Err.Number = -2147217873) Then
MsgBox ("Hola")
End If

objRecordset.Close
objConnection.Close