VBA to read data from Access file

Sub ReadDataFromAccess()
    Dim db As Object ' DAO.Database
    Dim rs As Object ' DAO.Recordset
    Dim strSQL As String
    
    ' Specify the path and filename of the Access database file
    Dim dbPath As String
    dbPath = "C:\Path\to\your\Database.accdb"
    
    ' Specify the SQL query to retrieve data from the Access database
    strSQL = "SELECT * FROM TableName" ' Replace TableName with the actual table name or query
    
    ' Create a DAO Database object
    Set db = CreateObject("DAO.DBEngine.120").OpenDatabase(dbPath)
    
    ' Create a DAO Recordset object and execute the SQL query
    Set rs = db.OpenRecordset(strSQL)
    
    ' Loop through the recordset and read the data
    If Not rs.EOF Then
        rs.MoveFirst
        Do Until rs.EOF
            ' Read data from the recordset and do something with it
            Dim fieldValue As Variant
            fieldValue = rs("FieldName") ' Replace FieldName with the actual field name in the table
            MsgBox fieldValue
            
            rs.MoveNext
        Loop
    End If
    
    ' Close the recordset and the database
    rs.Close
    db.Close
    
    ' Clean up the objects
    Set rs = Nothing
    Set db = Nothing
End Sub