Bonjour,  
Je cherche à importer des données venant d'une base de données SQL  
Avec le Prog suivant, je l'importe dans Excel :  
[i][i]Dim qt As QueryTable  
sqlstring = "Select CodeArticle,Design From ARTICLE "  
connstring = "ODBC;DSN=XXXX;UID=XXX;XX=;"  
With ActiveSheet.QueryTables.Add(Connection:=connstring, _  
Destination:=Range("a1" ), Sql:=sqlstring)  
.Refresh BackgroundQuery:=False  
End With [/i][/i].
Le but est d'importer les données dans un tableau VB genre "Array" ou autre sans passer par excel.  
Est-ce que quelqu'un a une idée et pourrait éventuellement m'écrire le Prog en sachant que je ne travail pas sous Access.
Merci.