(MUCHA AYUDA) update con tablas relacionadas en acces

[aldo1982]

wenas en en micodigo metira un error el visual al hacer la siguiente actualizacion (update):
'aca dejo el código
Dim Confirm As String
Confirm = MsgBox("DESEA MODIFICAR EL CLIENTE: " & Combo1, vbYesNo + vbQuestion, "MODIFICAR CLIENTE")
If Confirm = vbYes Then

'=================================
'ACTUALIZAR EL CLIENTE (tabla pedidos)
Set dbconn = New ADODB.Connection
dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=empresa.mdb;Persist Security Info=False"
dbconn.Open
SQL = "update pedidos set cliente = '" & Text1.Text & "',rep_ventas = '" & text3.Text & "' where cliente like '" & Combo1 & "'"
Set rs = dbconn.Execute(SQL, , adCmdText)
'rs.Close
dbconn.Close
'=================================
'ACTUALIZAR EL CLIENTE (tabla cliente)

SQL = "update clientes set num_clie = '" & Text1.Text & "',empresa = '" & Text2.Text & "', limite_credito = '" & Text4.Text & "',domicilio = '" & Text5.Text & "',codpos = '" & text6.Text & "',rep_ventas = '" & text3.Text & "' where num_clie like '" & Combo1 & "' "
dbconn.Open
Set rs = dbconn.Execute(SQL, , adCmdText)
dbconn.Close

MsgBox "EL CLIENTE FUÉ ACTUALIZADO CON EXITO", vbInformation, "MODIFICACIÓN EXITOSA"
Else
MsgBox "EL CLIENTE NO SE MODIFICÓ", vbInformation, "MENSAJE"
End If
'=================================
EL ERROR KE ME TIRA DICE: EL REGISTRO NO SE PUEDE ELIMINAR O CAMBIAR PORQUE LA TABLAPEDIDOS INCLUYE REGISTROS RELACIONADOS
POR FAVOR KE ALGUIEN ME AYUDE, NUNCA ME PASÓ ESTE PROBLEMA.

SALU2 Y GRACIAS