VBA Connect to Access DB From Excel

VBAConnToAccess.vba

Sub DBGetUsers()
  Dim DBLearningVBA As Database
  Dim RSUsers As Recordset
  Dim dbPath As String
  Dim dbName As String
  
  dbPath = "C:\Users\Giovanni\Documents\"
  dbName = "LearningVBA.mdb"
  
  Set DBLearningVBA = OpenDatabase(dbPath & dbName) 'Open database
  Set RSUsers = DBLearningVBA.OpenRecordset("USERS", dbOpenTable) 'Open RecordSet . 'USERS' Table
  
  Dim row As Integer
  row = 16
  
  ' Display rows in Worksheet 1
  Do While Not RSUsers.EOF
    Worksheets(1).Range("A" & row).Value = RSUsers.Fields(0)
    Worksheets(1).Range("B" & row).Value = RSUsers.Fields(1)
    Worksheets(1).Range("C" & row).Value = RSUsers.Fields(2)
    Worksheets(1).Range("D" & row).Value = RSUsers.Fields(3)
    RSUsers.MoveNext
    row = row + 1
  Loop
  
  RSUsers.Close
  DBLearningVBA.Close
End Sub

You should activate Microsoft DAO from Tools -> References in VBA Editor.
Ensure that DB File name and path be right.

Table USERS:

ID AUTONUMERABLE
FIST_NAME TEXT
LAST_NAME TEXT
EMAIL TEXT