<%
Dim cn,cm
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("Archive.mdb")
set rs=cn.execute ("Select * from [table] union Select * from [second table]")
while not rs.eof
response.write rs(0)&"<br>"
rs.movenext
wend
cn.close
Set cn = NOTHING
Set rs = Nothing
%>
The tables must have the same number of fields, or we need to specify an equal number of field in the select.
set rs=cn.execute ("Select nome,eta from [table] union Select name,age from [second table]")