Mesclar 2 Conexões p/ usar uma Variavel vindo do Request.QueryString

GENTEMM, criei uma página de visualizaçao q pega o valor d um link duma pagina anterior (Request.QueryString), nessa pagina de visualização, vai beleza abrindo a conexao..., mostrando os dados e fechando a conexão etc, q funcinona beleza, mas nessa mesma pagina eu tenho q abrir uma outra conexao pq uso uma condiçao WHERE diferente, e nessa segunda da erro com o (Request.QueryString) da minha variavel (varMES).. como fazer pra mesclar os dois para poder a proveitar a mesma Request.QueryString sem dar erro??

vo mostar como ta essa pagina:

<%

Dim conDB0

Dim recLinks0

Dim varMES

varMES=(request.QueryString("cod"))

const cntCaminho0 = "c:\bd\DB.mdb"

set conDB0 = Server.createObject("ADODB.Connection")

set recLinks0 = Server.CreateObject("ADODB.Recordset")

conDB0.open "driver={microsoft access driver (*.mdb)};dbq=" & cntCaminho0

recLinks0.open "SELECT * FROM bi WHERE mes = '" & varMES & "' AND concorrencia = 'Estaduais' ORDER BY data ASC", conDB0

do while not recLinks0.Eof

%>................................................................................

..............ABRO A PRIMEIRA CONEXAO

<% response.write recLinks0.fields("licitante") %>......................... MOSTRA OS DIVERSOS DADOS

<%

RecLinks0.MoveNext

Loop

recLinks0.close

conDB0.close

%>.............................................................................

.................FECHO TUDO

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . NA MESMA PAGINA

<%

Dim conDB1

Dim recLinks

....................SE COLOCAR D NOVO a Dim varMES e o varMES=(request.QueryString("cod")) Da erro

const cntCaminho = "c:\bd\DB.mdb"

set conDB1 = Server.createObject("ADODB.Connection")

set recLinks = Server.CreateObject("ADODB.Recordset")

conDB1.open "driver={microsoft access driver (*.mdb)};dbq=" & cntCaminho

recLinks.open "SELECT * FROM bi WHERE mes = '" & varMES & "' AND concorrencia = 'Nacionais' ORDER BY data ASC", conDB1

do while not recLinks.Eof

%>.............................................................................

.................ABRO A SEGUNDA CONEXAO

<% response.write recLinks0.fields("licitante") %>.......................... MOSTRA OS DIVERSOS DADOS

<%

RecLinks.MoveNext

Loop

recLinks.close

conDB1.close

%>.............................................................................

.................FECHO TUDO