Select Union

Por favor

Ja verifiquei os dados no DB

O erro é esse

ADODB.Recordset (0x800A0CC1)

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Set Conn = Server.CreateObject("ADODB.CONNECTION")  Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\asp\estoque.mdb" ' Objeto Recirdset Set rs = Server.CreateObject("ADODB.RECORDSET") rs.Open "SELECT camera FROM Fotografia UNION SELECT celular FROM Telefone", Conn %> <table width="600px" align="center" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0"> <tr> <td width="200px">Cameras</span></td> <td width="200px">Celulares</span></td> </tr> </table> <% Do While Not rs.eof %> <table width="600px" align="center" border="1" bordercolor="#999999" cellpadding="0" cellspacing="0"> <tr> <td width="200px"></td> <td width="200px"><%=rs("camera")%></td> <td width="200px"><%=rs("celular")%></span></td> [COLOR=purple]AQui[/COLOR] </tr> </table> <% rs.Movenext Loop  rs.Close  Conn.Close  Set Conn = Nothing  %>