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, dbs As Database, InsertRecord As String
    Dim gnum As Integer
    Dim anum As Integer
    Dim StudentID As Integer, num1 As Integer, num2 As Integer
    Dim StudentFName As String
    Dim StudentLName As String
    Dim StudentPhone As Integer
    Dim StudentAddress As String
    Dim StudentEmail As String
    Dim StudentBelt As String
    Dim StudentGrade As String
    Dim StudentClass As String
    Set dbs = CurrentDb()  'The CurrentDb method returns an object variable of type   Database
    StudentID = 100
  For num1 = 0 To 1000
  StudentID = "STU" + StudentID + 1
  fnames = Array("George", "Christan", "Doonie", "Eva", "Lily", "Thomas", "Anastasia", "Kim", "Steve", "Matthew")
  lnames = Array("Chelli", "OMartin", "Cravens", "Davis", "Wolfe", "Wick", "Cooper", "McBride", "Winters", "Joseph")
  StudentPhone = Int((99999999 - 90000000 + 1) * Rnd + 90000000)
  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")
  belt = Array("White", "Red", "Yellow", "Orange", "Green", "Blue", "Purple", "Brown", "Black-Half", "Black-Full")
  For num2 = 0 To 2
    grade = Array("Good", "Very Good", "Excellent")
    Next num2
  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)
StudentAddress = anum + " " + address(num)
StudentEmail = email(num) + tail(num)

InsertRecord = "insert into STUDENT (StudentID, StudFName) values (" & "'" & StudentID & "'" & "," & "'" & StudentFName & "'" & ")"
 
dbs.Execute InsertRecord
Next
End Sub