Registro Aleatório

Vou descrever o que eu faço no meu código pra ver se vocês podem me ajudar.

1º - Estou selecionando todos os código(índice) da tabela produtos.

2º - Num loop estou guardando todos os códigos numa array().

3º - Guardo o UBound da array numa variavel (qtd_produto).

4º - Faço 4(quatro) Random´s na variavel qtd_produto (UBound(array)) para depois pegar 4 registros no BD que tenham esses códigos.

5º - Função que verifica se todos registros são diferentes, senão random novamente.

Agora eu tenho esses quatro códigos aleatórios, um diferente do outro e existentes na tabela!

Até aqui tudo ok!

Executo essa SQL:

SELECT cod_produto, fabricante FROM tb_produtos WHERE cod_produto in ("&cod1&","&cod2&","&cod3&","&cod4&")

Agora ao problema:

A consulta é feita com base no índice, ou seja, ele pega esses 4 códigos e os ordena de acordo com a tabela pesquisada.

Alguém tem alguma sugestão de como resolver?