Eliminar registros de forma masiva en varias tablas

[Prefontaine]

Buenas,
Tengo el siguiente codigo pero no se como hacer que en una misma select me elimine dos tablas los registros relacionados en común, la cuestión es que en una tabla me elimiina, pero en la otra no.

borrar = CINT(Request.QueryString("codigo"))

Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

strSQL = "Delete * FROM atletas_ins WHERE codigo="&borrar
strSQL = "Delete * FROM equipos WHERE ID=" & borrar

rsDeleteEntry.LockType = 3

rsDeleteEntry.Open strSQL, Conn

rsDeleteEntry.Delete

Response.Redirect "ok.asp"