While não mostra resultados menores que 3

Prezado amigos, novamente venho pedir socorro.

Tenho uma pagina que apresenta uma Foto Grande do Produto e em baixo um Carousel JQuery onde apresenta a Miniatura da Foto de todos os Produtos do Grupo.

Tudo estava bem até que percebi o Problema. Qdo tenho um Grupo de Produtos onde existe somente 1 ou 2 Produtos cadastrados a apresentação da Miniatura não ocorre, e para piorar não dá nem erro, simplesmente o quadro aparece vazio.

Segue abaixo trechos do Código

' Select que recebe e identifica qual é o Grupo selecionado
TabProdutoGrupo = Server.CreateObject("adodb.recordset")
sql = "select * from ProdutoGrupo where ProdutoGrupoID = "&Request.QueryString("ID")&""
set TabProdutoGrupo = Conexao.execute(sql)

' Variável que recebe o Código do Grupo
CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

' Select que carrega os Produtos ligados ao Grupo selecionado ondenando pelo campo ProdutoID Ascendente
TabProduto = Server.CreateObject("adodb.recordset")
sql = "select * from Produto where ProdutoGrupoID = "&CodigoProdutoGrupo&" order By ProdutoID ASC"
set TabProduto = Conexao.execute(sql)

<!-- Início da Div de apresentação das miniaturas -->

<div id="carosel" style="border:solid">
<div class="carosel">
<ul>

<%
IF Not TabProduto.EOF Then

Count = 0
Do While Not TabProduto.EOF
CodigoProduto = CStr(TabProduto("ProdutoID"))
Foto = TabProduto("ProdutoFoto")
FotoPq = TabProduto("ProdutoFotoPequena")
ProdutoNome = TabProduto("ProdutoNome")

Response.Write("<li><img src='ProdutoGrupo/Produtos/"&FotoPq&"' width='147' height='81' border='0' /></li>")

TabProduto.MoveNext
count=count+1
loop

Else
Response.Write("Nao achou nada")
End IF
%>

</ul>
</div>
</div>

<!-- Fim da Div de apresentação das miniaturas -->

Desde já agraceço qualquer sugestão.

Atenciosamente