busca em varias tabelas

Olá pessoal sera que alguem poderia me ajudar nesta dúvida

procurei no forum mais não encontrei nada

tenho 3 tabelas no access

1- categoria_br

3- categoria_us

4- categoria_es

gostaria de saber com fazer para listar a categoria

correspondente a sessão

abaixo meu código

<%
Set objConn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
strConnection = strConnection & Server.MapPath("dados/banco.mdb")
objConn.Open strConnection

'Recupero uma sessão nop caso Portugues,Ingles,Espanhol
lingua=Session("lingua")

'Se for portugues lista a tabela portugues
IF lingua ="portugues" then
PESQUISAR = "SELECT * FROM categoria_br"
Set RecSet=objConn.Execute(PESQUISAR)
IF RecSet.EOF then
end if

'Se for ingles lista a tabela ingles
IF lingua ="ingles" then
PESQUISAR = "SELECT * FROM categoria_us"
Set RecSet=objConn.Execute(PESQUISAR)
IF RecSet.EOF then
end if

'Se for espanhol lista a tabela espanhol
IF lingua ="espanhol" then
PESQUISAR = "SELECT * FROM categoria_es"
Set RecSet=objConn.Execute(PESQUISAR)
IF RecSet.EOF then
end if
%>
Nenhum registro encontrado
<%else %>

Lista

 <table border="1" width="350" height="60">
 <tr>
 <%

num = 0 do while NOT RecSet.EOF%>

 <td bgcolor="<%=cor_centro1%>">
 <a href="produtos_menu_2.asp" ><%=RecSet("cat_br")%></a>
 </td>
 <%

RecSet.Movenext num = num + 1 if num mod 2 = 0 then response.write "</tr><tr>" loop %>

</tr>
 </table>

<% end if end if end if objConn.close %>

tambem não sei como recuperar em baixo do do while NOT RecSet.EOF

<%=RecSet("cat_br")%> ??

se alguem tiver uma outra forma melhor de se fazer isto por favor poste p/ mim

tem dias que estou quebrando a cabeça com isto.

Muito obrigado a todos