Consultas entres duas tabelas

Ola galera, boa tarde!

estou com um probleminha com meu codigo

Estou usando a consulta duas vezes, a primeira consulta utilizo o nome da primeira tabela (Semana) a segunda tabela (Programação).

Essas tabelas ja estaun relacionadas no banco.

a primeira consulta esta funcionando perfeitamente.

vejam

/applications/core/interface/imageproxy/imageproxy.php?img=http://shopcolina.com.br/quadrangular/imagens/forun.png&key=7d9164edbe2bc47102764c047ee7971186f7b4562bd67fad4765feae4f8c2385" alt="forun.png" />

Agora a segunda consulta q é a tabela Programação naun roda, na vdd ela funciona mas naun esta pegando os valores q estaun no banco.

Notem q ( NENHUM REGISTRO ENCONTRADO) faz parte da segunda consulta...

vejam como eu fiz...

<link href="Css/styles.css" rel="stylesheet" type="text/css" />

 <%

 registros = 7

' Definindo o caminho do banco de dados caminho = "Dados/Quadrangular.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Dados/Quadrangular.mdb")
objconn.Open DSN

' String SQL para consulta
SQL = "select * from Semana order by Id"

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = registros

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
objRS.AbsolutePage = 1
pagina = 1
Else
objRS.AbsolutePage = pagina
End If
%>

<table width="140" border="0" cellspacing="0" cellpadding="6">
 <tr> <%While Not objRS.EOF AND x < objRS.PageSize
 x = x + 1

q = q + 1 %>

 <td height="300" valign="top">
<fieldset>

<table width="130" border="0" cellspacing="0" cellpadding="0">
 <tr>
 <td height="30">

 <div align="center">
 <font size="5" color="#777777" face="Arial">
	<b><%=objRS("Dia")%></b>
 </font>
 </div>

 </td>
 </tr>
 <tr>
 <td height="270" valign="top">

<% registros = 20 ' Definindo o caminho do banco de dados caminho = "Dados/Quadrangular.mdb"

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Dados/Quadrangular.mdb")
objconn.Open DSN

' String SQL para consulta
SQL = "select * from Programacao WHERE Id LIKE '"& IdSemana &"' ORDER BY Id DESC"

' Abrindo o registro
SET Prgm = Server.CreateObject("ADODB.Recordset")
Prgm.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If Prgm.EOF Then
Response.Write("<center><font face=Verdana color=#999 size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1 color=#000>PROGRAMACOES DO DIA AKI...</font></a> </center></font>")
Else
' Definindo o número de registros por página
Prgm.PageSize = registros

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
Prgm.AbsolutePage = 1
pagina = 1
Else
Prgm.AbsolutePage = pagina
End If
%>
<%While Not Prgm.EOF AND x < Prgm.PageSize
x = x + 1
%>
<br/>

 <div align="left">
 <font size="2" color="#666666" face="Arial">
  <%=Prgm("Descricao")%>
 </font>
 </div>

<%
Prgm.MoveNext

Wend
%>

<div align="right">
	<%' Criando a barra de navegação

' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("")
Else
Response.Write("")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
For i = 1 To objRS.PageCount
response.write("")
Next
end if

if objRs.PageCount > 10 then
inicio=pagina
fim=pagina + 9
tot = pagina + 9
if tot > ObjRS.PageCount then
inicio = pagina-((pagina+9)-ObjRs.PageCount)
fim = inicio+9
end if
for i = inicio to fim
response.write("")
next
end if

' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
Response.Write("")
Else
Response.Write("")
End If
End If
%>

	</div>

 </td>
 </tr>
</table>
</fieldset>
</td><% If q = 7 Then %>
</tr>

<% q = 0 End If objRS.MoveNext

Wend
%>

</table>

	<%' Criando a barra de navegação

' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
Response.Write("")
Else
Response.Write("")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 11 then
For i = 1 To objRS.PageCount
response.write("")
Next
end if

if objRs.PageCount > 10 then
inicio=pagina
fim=pagina + 9
tot = pagina + 9
if tot > ObjRS.PageCount then
inicio = pagina-((pagina+9)-ObjRs.PageCount)
fim = inicio+9
end if
for i = inicio to fim
response.write("")
next
end if

' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
Response.Write("")
Else
Response.Write("")
End If
End If
%>
<%
' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>

alguém pode me dar um help !!!!!!!