here

Option Compare Database
Option Explicit

Sub arrayData()
    Dim fnames() As Variant  'Must be variant data type only
    Dim lnames() As Variant
    Dim address() As Variant
    Dim email() As Variant
    Dim tail() As Variant
    Dim belt() As Variant
    Dim grade() As Variant
    Dim class() As Variant
    Dim num As Integer, db As Database, InsertRecord As String
    Dim num1 As Integer
    Dim gnum As Integer
    Dim anum As Integer
    Dim StudentFName As String
    Dim StudentLName As String
    Dim StudentPhone As Long
    Dim StudentAddress As String
    Dim StudentEmail As String
    Dim StudentBelt As String
    Dim StudentGrade As String
    Dim StudentClass As String
    Dim SQL As String
    Set db = CurrentDb()  'The CurrentDb method returns an object variable of type   Database
  For num1 = 0 To 9
  fnames = Array("George", "Christan", "Doonie", "Eva", "Lily", "Thomas", "Anastasia", "Kim", "Steve", "Matthew")
  lnames = Array("Chelli", "OMartin", "Cravens", "Davis", "Wolfe", "Wick", "Cooper", "McBride", "Winters", "Joseph")
  address = Array("Roosevelt Avenue", "College Street", "Catherine Street", "Park Drive", "River Street", "Manor Drive", "Virginia Avenue", "Taylor Street", "Second Street", "Fake Street")
  email = Array("ettofenal0056", "elezallud7273", "grale1930", "jurpso9920", "mayhouris2212", "kekyourss2224", "laruipwoie0928", "uyrasshp0192", "kaysnops2267", "oopsididit2656")
  tail = Array("@hotmail.com", "@yahoo.com", "@gmail.com", "@outlook.com", "@live.com", "@zoho.com", "@gmx.com", "@fastmail.com", "@hushmail.com", "@dodo.com")
  belt = Array("White", "Red", "Yellow", "Orange", "Green", "Blue", "Purple", "Brown", "Black-Half", "Black-Full")
  grade = Array("Good", "Very Good", "Excellent")
  class = Array("CLS001", "CLS002", "CLS003", "CLS004", "CLS005", "CLS006", "CLS007", "CLS008", "CLS009", "CLS010")

' Equation for Random generation:
' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

num = Int((9 - 0 + 1) * Rnd + 0)
gnum = Int((2 - 0 + 1) * Rnd + 0)
anum = Int((999 - 1 + 1) * Rnd + 1)
StudentFName = fnames(num)
StudentLName = lnames(num)
StudentPhone = Int((99999999 - 90000000 + 1) * Rnd + 90000000)
StudentAddress = CStr(anum) & " " & address(num)
StudentEmail = email(num) & tail(num)
StudentBelt = belt(num)
StudentGrade = grade(gnum)
StudentClass = class(num)

'InsertRecord = "INSERT INTO STUDENT (StudentID, StudFName, StudLName, StudPhone, StudAddress, StudEmail, StudBelt, StudGrade, StudClass) VALUES (" & "'" & StudentID & "'" & "," & "'" & StudentFName & "'" & "," & "'" & StudentLName & "'" & "," & "'" & StudentPhone & "'" & "," & "'" & StudentAddress & "'" & "," & "'" & StudentEmail & "'" & "," & "'" & StudentBelt & "'" & "," & "'" & StudentGrade & "'" & "," & "'" & StudentClass & "'" & ");"

'db.Execute InsertRecord
SQL = "INSERT INTO STUDENT (StudFName, StudLName, StudPhone, StudAddress, StudEmail, StudBelt, StudGrade, StudClass) " & _
"VALUES ('" & StudentFName & "','" & StudentLName & "','" & StudentPhone & "','" & StudentAddress & "','" & StudentEmail & "','" & StudentBelt & "','" & StudentGrade & "','" & StudentClass & "');"
DoCmd.RunSQL (SQL)
Debug.Print StudentFName; StudentLName; StudentPhone; StudentAddress; StudentEmail; StudentBelt; StudentGrade; StudentClass

  Next

End Sub