Sql Execute inde i recordsæt

Sidder med et problem hvor jeg skal slette en række poster i en række tabeller fra et bestemt id.

Da jeg sidder på MySQL server og ikke kan lave cascade har jeg forsøgt med et normalt loop

problemet er at den skriver følgende fejl

Sun ONE ASP VBScript runtime (0x800A000D)
Type mismatch

som om den ikke vil acceptere mit ID objekt fra recordsettet
------------


id = Request.QueryString("id")

StrSQL = ""
StrSQL = "SELECT * FROM Anlaeg WHERE virksomhedID="+id
Set objRS = objConn.Execute(StrSQL)
       
Do While Not objRS.EOF
       
StrSQL = ""
StrSQL = "DELETE FROM Anlaeg_fejl WHERE anlaegID="+objRS("ID")
Set objRSo = objConn.Execute(strSQL)

objRS.MoveNext
       
Loop