Con DAO e Database Access
codice:
    Dim SQL as sting 
    Dim RecTab as DAO.RecordSet
    Dim DB as Database
    
    Set DB = Opendatabase(NomeDB)

    SQL = "SELECT * FROM NomeTabella"

    Set RecTab = DB.Openrecordset(SQL)

    For i = 0 To RecTab.Fields.Count - 1
    ---
    TUO CODICE 
    ---
    Next