<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Archivio.mdb")
set rs=cn.execute ("Select * from tabella union Select * from secondatabella")
while not rs.eof
  response.write rs(0)&"<br>"
  rs.movenext
wend
cn.close
Set cn = NOTHING
Set rs = Nothing
%>

In questo caso le due tabelle devono avere lo stesso numero di campi altrimenti ci verrà restituito un errore. E' possibile unire anche tabelle aventi strutture completamente diverse, ma il tal caso dovremo dichiarare quali campi vogliamo utilizzare:

set rs=cn.execute ("Select nome,eta from tabella union Select name,age from secondatabella")

E per richiamare i valori? Non sarà ovviamente possibile utilizzare esplicitamente "nome", "eta", "name" e "age". Useremo:

<%
nome=rs(0)
eta=rs(1)
%>