Ta bort ur massa tabeller. Relationer osv..

Con.Execute("Delete From projektforetag Where projektforetagID ="& cINT(fixaTecken(projektforetagID))) 
  Con.Execute("Delete From projektanvandareLankning Where projektforetagID ="& cINT(fixaTecken(projektforetagID)))  
  Con.Execute("Delete From projektanvandare Where projektanvandareID not in(Select projektanvandareID From projektanvandare)")
  Con.Execute("Delete From projektaktivitetLankning Where projektanvandareID not in(Select projektanvandareID From projektanvandare)")
  Con.Execute("Delete From projektaktivitet Where projektaktivitetID not in(Select projektaktivitetID From projektaktivitetLankning)")
  Con.Execute("Delete From projektlankning Where projektanvandareID not in(Select projektanvandareID From projektanvandare)")
  Con.Execute("Delete From projekt Where projektID not in(Select projektID From projektlankning)")
  Con.Execute("Delete From projektKundLankning Where projektanvandareID not in(Select projektanvandareID From projektanvandare)")
  Con.Execute("Delete From projektKund Where projektKundID not in(Select projektKundID From projektKundLankning)")
  Con.Execute("Delete From projektKundKontaktpersonLankning Where kundID not in(Select projektKundID From projektKund)")
  Con.Execute("Delete From projektKundKontaktperson Where projektKundKontaktpersonID not in(Select projektKundKontaktpersonID From projektKundKontaktpersonLankning)")

Ska ta bort information ur en massa tabeller då jag raderar ett företag. Hur gör man detta på ett bättre sätt?