Executar Query em BD e Servidores Diferentes

Como devo comprar informações em duas tabelas sendo cada uma de um BD e Servidor diferente.

O que eu fiz e não funcionou.

Set cnA = Server.CreateObject("ADODB.Connection")

Set cnB = Server.CreateObject("ADODB.Connection")

StrConnA = "File Name=D:\Desenv\Includes\Conexao_A.udl"

StrConnB = "File Name=D:\Desenv\Includes\Conexao_B.udl"

strqry = "select bip.codigo, bip.nome"

strqry = strqry + "from tabela_a bip, "

strqry = strqry + tabela_b sdp "

strqry = strqry + "where sdp.codigo = bip.codigo "

cnA.Open = StrConnA

Set rsA = server.CreateObject("ADODB.RecordSet")

rsA.ActiveConnection = cnA

cnB.Open = StrConnB

Set rsB = server.CreateObject("ADODB.RecordSet")

rsB.ActiveConnection = cnB

rsA.Source = "select bip.codigo, bip.nome from tabela_a bip, tabela_b sdp where sdp.codigo = bip.codigo and rownum < 200"

Quem puder ajudar........ Grato....... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif