join och delete

Går det att sätta ihop det här till en, eller ev. två deletes utan att loopa? t ex med join eller nått?

Public Sub DelCategory(ID)
	Dim strSQLlist, SQL, objRSlist
	
	strSQLlist = "Select Forum_ID From aForums Where Forum_Sub="& ID
	Set objRSlist = GetConn.Execute(strSQLlist)
	If Not objRSlist.EOF Then
		Do Until objRSlist.EOF
			SQL = "Delete From aF_Topics Where Topic_Category="& objRSlist("Forum_ID")
			GetConn.Execute(SQL),,128
		objRSlist.MoveNext
		Loop
	End If
	objRSlist.Close
	Set objRSlist = Nothing

	SQL = "Delete From aForums Where Forum_Sub="& ID
	GetConn.Execute(SQL),,128
	SQL = "Delete From aForums Where Forum_ID="& ID
	GetConn.Execute(SQL),,128
	

End Sub

Använder MySQL 3.23

Nej, det du kan göra att slå ihop dom två sista delete-satserna.

SQL = "Delete From aForums Where "& ID & "in(Forum_Sub,Forum_ID)"
	GetConn.Execute SQL,,128

Det är effektivare att du samlar alla id i en sträng och bara gör en delete

If Not objRSlist.EOF Then
   sql = "Delete From aF_Topics Where Topic_Category in " & "(" & objRSlist.getstring(2,,,",",) & ")"
   getconn.execute sql,,128
End If

ahh, tack