Pb récupération résultat requête SQL

Bonjour à tous,

Je cherches à récupérer le résultat d'une requête SQL dans une variable de type tableau. Je suis obligé de passer par 2 requêtes afin de récupérer toutes les informations que je souhaites.

- Step 1 : Compter les occurences (nb)

- Step 2 : Récupérer les infos avec la méthode 'GetRows' en lui indiquant la valeur (nb)

Function AutoExec()
    Dim Lst As Variant

    Lst = Array("Fonction", "Priorité", "Secteur", "Condition_de_visite", "Service", "Departement", "Produits", "Laboratoire", "Info_Produit", "Type", "Canal", "Promo", "Choix")
    ReDim G_TAB_Lst_info(0 To UBound(Lst))

    SetBypassProperty
    DoCmd.ShowToolbar "Ribbon", acToolbarNo

    G_STR_Tbl_BDD = "Tbl_BDD"

    'Lancement de la commande SQL
    For i = 0 To UBound(Lst)
        G_Cmd_SQL ("SELECT count (" & Lst(i) & ") FROM " & G_STR_Tbl_BDD & " WHERE " & Lst(i) & " is not null ;")
        nb = rs.Fields(0)
        G_Cmd_SQL ("SELECT " & Lst(i) & " FROM " & G_STR_Tbl_BDD & " WHERE " & Lst(i) & " is not null ;")
        G_TAB_Lst_info(i) = rs.GetRows(nb)
    Next i

End Function

Function G_Cmd_SQL(chaine As String) As Recordset

    Set rs = Nothing
    Set db = CurrentDb
    Set rs = db.OpenRecordset(chaine)
    Set db = Nothing

End Function

Est ce qu'il y aurait un moyen plus simple pour récupérer toutes les informations? Car je ne récupère que le 1er enregistrement si j'emploie la méthode ci dessous :

G_TAB_Lst_info(i) = rs.GetRows

Salut monsieur Florian53,

Je me suis également intéressé à la solution de votre sujet.

Si vous pouvez joindre les modèles des feuilles de travail impliquées dans la question, cela aiderait le personnel à trouver une possible solution .