Imagens no Loop para criar relatório

Olá gente, bom... A minha dúvida é a seguinte: Eu estou utilizando o código abaixo para abrir o meu Data Report com uma consulta no banco que tem várias imagens, só q eu estou atualizando o controle dentro do loop para exibir as diferentes imagens da consulta (consegui resolver um problema que tive, que em toda volta do loop ele colocava a última imagem em todos os controles Image anteriores), mas falta só um pequeno detalhe, eu preciso exibir para o usuário o relatório neste caso, porém qdo eu dou um .show depois do loop o VB avisa dizendo que o DataSource é inválido (pq eu dei um Nothing), então, como eu faço para que eu possa exibir o relatório com tudo que foi atribuido dentro do loop ??????

Do Until Rs.EOF rsTemp.AddNew rsTemp.Fields("Boneco") = Rs.Fields("Boneco") rsTemp.Update Set .DataSource = rsTemp Set drOrcamento.Sections("SecaoDetalhes").Controls("imgBoneco").Picture = ExibeImagensGrandes(rsTemp.Fields("Boneco")) rsTemp.MoveFirst rsTemp.Delete Set drOrcamento.DataSource = Nothing Rs.MoveNext Loop

Bom, espero que tenham entendido. Obrigado desde já e um abraço a todos.

Oks,

Rafael Portal