dim SQL as String
dim rs As Recordset
SQL = "SELECT ID,RND(ID+SECOND(NOW())) AS 乱数 FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)
シード値とは乱数発生の元になる数値です。
同じシード値ですと同じ乱数になります。
その為、上の例ですとIDを加え同じにならないようにしています。
乱数の発生結果です。
0.633178889751434
0.207561135292053
0.186013519763947
0.583359003067017
8.07146430015564E-02
0.457971453666687
0.905729830265045