If dbRecset.RecordCount = 1 Then
Dim Tableau() As String 'Tableau de sortie de la fonction
ReDim Preserve Tableau(1 To 1, 1 To dbRecset.Fields.Count) 'Que l'on redimensionne suivant le nb de champs retournés
Dim col As Integer 'Nb de champs a traiter (pour la boucle suivante)
col = 1
While col < dbRecset.Fields.Count + 1
'MsgBox dbRecset.Fields.Item(col - 1), vbCritical, "valeur"
Tableau(1, col) = dbRecset.Fields.Item(col - 1)
col = col + 1
Wend
MysqlTableau = Tableau 'La fonction s'appelle MysqlTableau (elle prend un requete et retourne un tableau (array)
Exit Function
End If