有表1和表2
表1中存储的是员工的个人信息,其中有三个数据项.表2存的是表1中三个数据项中每一项的和
现想请教,如何删除表1中一条员工的个人信息,表2的数据自动减去表1所删除数据中的那三项数据.
VB+ACCESS
请帮忙写出代码.

Private Sub Command3_Click()
If Adodc1.Recordset.RecordCount > 0 Then
     a = MsgBox("您确实要删除这条数据吗?", vbYesNo, "删除信息")
     If a = vbYes Then
     Adodc1.Recordset.Delete
     Adodc1.RecordSource = "select * from 部门信息表 order by 部门编号"

    End If
   Else
     MsgBox "没有要删除的数据！"
  End If

End Sub   

上面代码只能实现删除表1的一条数据,却实现不了表2的数据自动减去表1对应三项数据,请高人指点