SQL Server - Delete en cascada?????

Dos tablas: Pedidos y Lineas de pedido
Un pedido tiene lineas de pedido
En la relacion esta permitido el borrado en cascada

DELETE * from pedido where numpedido=1 ¿No funciona?

Lo que ocurre es que las lineas de pedido correspondientes a ese pedido no se borran.

Alguien sabria como hacerlo

a) Si la cascada la estás realizando por trigger, mandanos el código del trigger, y te podría ayudar un poco más...

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