' Creiamo gli oggetti
SET objConn = .......
objConn.Open = .......
SET objRS = .........
 
' Impostiamo il valore da utilizzare
email = tuaemail@indirizzo_email.ext
 
' Impostiamo l'estrazione del valore dalla prima tabella
strSQL = "SELECT Email1 FROM Tabella1 WHERE Email1 = '" email &"';"
objRS.Open strSQL, objConn
 
' Eliminiamo dalla seconda tabella il record con campo email
' corrispondente all'email della prima tabella
strSQL2 = "DELETE FROM Tabella2 WHERE Email2 = '" & objRS("Email1") & "';"
objConn.Execute strSQL2
 
' Chiudiamo e distruggiamo gli oggetti
objRS.Close
SET objRS = Nothing
objConn.Close
SET objConn = Nothing

' Creazione degli oggetti
SET objConn = .......
objConn.Open = .......
 
' Impostazione della Query
strSQL = "DELETE Tabella2.* FROM Tabella2 INNER JOIN Tabella1 ON Tabella2.Email2 = Tabella1.Email1 WHERE Tabella1.Email1 = '" & email & "';"
 
objConn.Execute strSQL
 
' Chiusura e distruzione dell'oggetto conn
objConn.Close
SET objConn = Nothing