Parcourir les colonnes en VBA

En VBA, par exemple sous MS-Access, pour parcourir les colonnes puis les lignes d’un dataset, on peut utiliser le code suivant:

Function parcourt_colonne()

' parcourt les colonnes puis les lignes
Set monRs = DBEngine.Workspaces(0).Databases(0).OpenRecordset("SELECT * FROM tbdPBPER_sans_ordre WHERE tbdPBPER_sans_ordre.Cas_No=1;")
ligne = 1
monRs.MoveFirst
Do While Not monRs.EOF
    For i = 0 To monRs.Fields.Count - 1

        MsgBox "ligne no " & ligne & " intitulé de la colonne = " & monRs.Fields(i).Name
    Next
    ligne = ligne + 1
    monRs.MoveNext
Loop

Set monRs = Nothing 'libération de l'objet

End Function