dim SQL as String
dim rs As Recordset
SQL = "SELECT RND() AS 乱数"
Set rs = CurrentDb.OpenRecordset(SQL)
10回繰り返した結果です。
0.301948010921478
0.774740099906921
0.014017641544342
0.76072359085083
0.814490020275116
0.709037899971008
4.53527569770813E-02
0.414032697677612
0.862619340419769
0.790480017662048