>>400、401
どうもありがとうございます。
今、Accessでﾃｽﾄﾃﾞｰﾀを1万件作るためのﾐﾆｱﾌﾟﾘ作成中なのです。
　 For i = 1 To 10000
rs.AddNew
rs("Key") = Format(Int(Rnd() * 1000) + 1)
rs.Update
Next i

↑こんな感じでにRnd()はﾙｰﾌﾟの中にあるのでﾙｰﾌﾟはあまり使いたくなくて
質問しました。でも>>394の方法で上手くいきましたけど…
間違ってるのかな??ｳｰﾝ､ﾜｶﾗﾝ。