求助，这个excel里用的随机数代码，如何修改成可以在Access里用

     Dim Arr()
     Randomize
     S = "0123456789"
     ReDim Arr(1 To Len(S))
     For i = 1 To Len(S)
         Arr(i) = Mid(S, i, 1)
     Next i
     For i = 1 To 5
         For J = 1 To 5
             S1 = ""
             For L = 1 To 30
                 If L = 1 Then
                     S1 = "'" & Arr(Int(Rnd * 5 + 5))
                 Else
                     S1 = S1 & Arr(Int(Rnd * Len(S) + 1))
                 End If
                If (L Mod 5) = 0 Then S1 = S1 & " "
             Next L
       
             Cells(i, J) = S1
         Next J
     Next i