Semplificazione di una query di cancellazione

[gibra]

Puoi fare così (non serve nemmeno aprire un recordset):

cnn.Execute "DELETE FROM TabPa WHERE ID IN (Query)

Dove Query è proprio la tua "SELECT TabPa.ID FROM TabPa INNER JOIN ...."