Il problema è nella query, così dovrebbe andare:
Codice:
Set RS = conn4.Execute("SELECT * FROM tabella INNER JOIN tabella2 ON tabella.cod_age = tabella2.cod_age WHERE tabella2.cod_age='" & codage & "' AND tabella2.login='" &login& "'")
Ho tolto il filtro sul campo password perchè altrimenti, con password errata, RS non contiene nessun record e quindi ogni tentativo di lettura dei dati genera un errore.