[Resolvido] Problema em randomizar

Olá amigos.

Tenho uma consulta de imóveis abaixo, mas não estou conseguindo fazer ela exibir os imóveis aleatóriamente.

 sSQL = " Select A.Codigo_Imovel, A.Codigo_Imobiliaria, " & _

 " A.Quartos, A.Vagas_Garagem, A.Nome_Bairro, " & _

 " A.Valor, A.Foto, A.Orientacao, " & _

 " B.Nome as NomeOpcao, A.Nome_Cidade " & _

 " from " & _

 " Imoveis as A, Opcoes as B, iMOBILIARIAS as C " & _

 " where " & _

 " A.Codigo_Opcao = B.Codigo_Opcao and " & _

 " a.destaque = 1 AND " & _

 " a.foto IS NOT NULL and " & _

 " A.Codigo_Imobiliaria = C.Codigo_Imobiliaria and " & _

 " C.Divulga_Portal = 'S' and " & _

 " (ltrim(str(c.Codigo_Imobiliaria))+ltrim(str(A.Codigo_Imovel))) in ( " & _

 " Select " & _

 " (ltrim(str(c.Codigo_Imobiliaria))+ltrim(str(max(A.Codigo_Imovel)))) " & _

 " from Imoveis as A, imobiliarias as C " & _

 " where " & _

 " c.codigo_imobiliaria = a.Codigo_Imobiliaria and " & _

 " c.divulga_portal = 'S' and a.destaque = 1 and " & _

 " a.foto IS NOT NULL " & _

 " ) "& _

 " ORDER BY RAND(A.Codigo_Imobiliaria-A.Codigo_Imobiliaria) "

Onde to errando?

Valeu pela atenção.