[Resolvido] Problema na sub para conectar ao banco

Galera, sei que função serve pra retornar um valor e subs para executar comandos. Eu quero criar uma sub, função ou seja lá o que for pra poder conectar em um banco diferente em cada página .ASP.

Vejam como eu fiz:

sub AbreConexao(NomeBanco)
caminho = "../bancos/" & NomeBanco & ".mdb"
Dim banco
Dim strConexao
strConexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(caminho)
Set banco = SERVER.CreateObject("ADODB.CONNECTION")
Set ObjRs = Server.CreateObject("ADODB.Recordset")
banco.OPEN strConexao
end sub
Aí, dentro da página eu chamo e uso o recordset que criei, coisa e tal:

call AbreConexao("federacoes")

sql = "SELECT * FROM federacoes order by id"
 ObjRs.Open sql, banco,3,3

 while not ObjRs.eof

mas não tá funcionando...

Alguém sabe o motivo? Não tá retornando erro pq tá dentro de um select mas se for necessário eu tiro do select pra ver o erro que dá...

 

 Já dei um "print" na variável 'caminho' e está certa....