While dentro outro While

Opa, estou tentando colocar um While dentro de outro While

Pedidos = "SELECT * FROM Pedidos Order by ID Desc"

while not Pedidos.Eof

CodSecao = Pedidos("CodSecao")

 ConsPedido = "SELECT * FROM Carrinho Where CodSecao=" & CodSecao

 while not ConsPedido.Eof

 ConsPedido.MoveNext

 wend

Pedidos.MoveNext

wend

Ele me retorna o erro

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: 'SELECT * FROM Carrinho'

/Historico.asp, line 132