Ta bort oändligt antal undernivåer

Har en meny med oänligt antal undernivåer. Nu vill jag att om man ta bort en länk ur menyn så ska den ta bort alla länkar som finns under denna nivå.
I tabellen har jag fälten menuID och menuParentID

Call deleteMenu(Request.QueryString("menuToDelete"))  

Function deleteMenu(ID)
  sqlString = "Select menuID from menu Where menuParentID = "& ID
  Set menuDeleteRS = Server.Createobject("Adodb.Recordset")
  menuDeleteRS.cursorlocation = 3 
  menuDeleteRS.open sqlString, con 
  While not menuDeleteRS.Eof
    Call deleteMenu(menuDeleteRS("menuID"))
	menuDeleteRS.MoveNext
  Wend
  menuDeleteRS.Close : Set menuDeleteRS = Nothing
 Con.Execute("Delete From menu Where menuID ="& cINT(ID)) 
End Function

Jag får felet undantag inträffade.