Inserir valores aleatórios e não repetidos no bd

[interlokk 0]

Pessoal, ocorreu um acidente com os dados do bd que tem aproximadamente 5000 registros e eu precisava atualizar os valores de uma coluna com numeros aleatorios e não repetidos. Tentei fazer isso usando um update dentro de um while mas não tá dando certo pois todos os valores ficam repetidos. Uso a seguinte rotina:

 

Set ProConn = Server.CreateObject("ADODB.Connection")
Set ProRS = Server.CreateObject("ADODB.RecordSet")
ProConn.Open = conn
ProRS.ActiveConnection = ProConn
ProRS.Source = "SELECT FROM tabela"
ProRS.LockType = 3
ProRS.Open()
While Not ProRS.EOF
SQL = "UPDATE tabela SET coluna = '"& MD5(code) &"'"
ProConn.Execute(SQL)
ProRS.MoveNext()
Wend

Tentei colocar uma função que gera numeros aleatórios dentro do while mas dá erro. Alguma dica? Será que dá pra fazer isso usando só o SQL? Fico grato.

[augustoclaro 2]

se for mysql vce pode usar o "order by rand()".

[Vinicius Ianni 189]

faz o select para pegar os valores que você nao quer que repita, compara ele com o que você pretende inserir no bd, se for diferente, executa o update, se for igual, dá um movenext