comment stocker de la requête sql en valeur dans un tableau

Dim list As New List(Of Integer)

Using reader As SqlDataReader = command .ExecuteReader()
    While reader.Read()
        list.Add(reader.GetInt32(reader.GetOrdinal("ProductID")))
    End While
End Using
'check  list.ToArray() now

EDIT : Mais, au Lieu de retourner un Tableau, je Voudrais revenir un Liste Générique d'Entiers (si vous ne voulez retourner le ProductId) ou Une Liste de ProductClass objets

Private Function GetProductIDs() As IList(Of Integer)

    Dim list As New List(Of Integer)
    Dim conStr = "write your connection string here"

    Using connection As New SqlConnection(conStr )
        Dim sql As String = "Select ProductID From OrderDetail Order By ProductID Desc"
        Dim command As New SqlCommand(sql, connection)
        Using reader As SqlDataReader = command.ExecuteReader()
            While reader.Read()
                list.Add(reader.GetInt32(reader.GetOrdinal("ProductID")))
            End While
        End Using
    End Using

    Return list

End Function

EDIT 2 : Que par le commentaire,
Pour récupérer la mettre dans le Texte de l'étiquette, vous pouvez le faire

Dim str As String
str = String.Join(",", GetProductIDs())
Label1.Text=str;

En supposant Label1 est theI D de votre étiquette de contrôle.Le String.Join méthode retourne une chaîne de ProductId du séparées par des virgules comme "1,2,6,7"