Populate an array from a sql query?

I think I did something wrong with this. I am trying to create an array of product id's from a database query.

 Dim dReader As SqlDataReader
 Dim i As Integer = 0
 Dim Products(i) As String
 Dim strResults As String
 conConnection.Open()
 Dim cmdCommand As New SqlCommand("SELECT ProductID FROM Products WHERE CategoryID = '4'", conConnection)
 dReader = cmdCommand.ExecuteReader()
 While dReader.Read
 Products(i) = dReader("Subcategory")
 i += 1
 strResults += dReader("Subcategory")
 End While
 Label1.Text = strResults 'just to display if I am getting results
 conConnection.Close()

I put that StrResults so I can monitor if anything is getting picked up, but nothing happens at all. What did I do wrong?Doing this freehand so might be a little bit off.

Dim myArrayList as new ArrayList
 Dim dReader As SqlDataReader
 Dim i As Integer = 0
 Dim strResults As String
 conConnection.Open()
 Dim cmdCommand As New SqlCommand("SELECT ProductID FROM Products WHERE CategoryID = '4'", conConnection)
 dReader = cmdCommand.ExecuteReader()
 While dReader.Read
 myArrayList.Add(dReader("Subcategory"))
 End While
 conConnection.Close()
Dim x as Integer
For x = 0 to myArrayList.Count - 1
labeli.text += myArrayList(x) & " "
Next

Cool, thanks. I also noticed that I have Subcategory as my Datareader field, but CategoryID in my actual query.

 Dim cmdCommand As New SqlCommand("SELECT ProductID FROM Products WHERE CategoryID = '4'", conConnection)
 dReader = cmdCommand.ExecuteReader()
 While dReader.Read
 Products(i) = dReader("Subcategory")

............

What did I do wrong?

-> You forgot to select "Subcategory" in SQL query?
Oh, sorry, didn't see you found it yourself.
Thanks guys. It feels so good when it finally works! :)

Populating 2 dim array.

Hello, I have a 7 column data table in ADO.net with 200 rows. I want to learn how to copy the data in my data table to myarray (6,199) as Integar.

Dim myarray (6, 199) As Integar??

For Each myarray In myDataSet.Tables??

??

??

Next??

Hello my friend,

Use the following: -

Dim myarray(6, 199) As Integer

For i As Integer = 0 To dt.Rows.Count - 1

For j As Integer = 0 To dt.Columns.Count - 1
myarray(i, j) = Convert.ToInt32(dt.Rows(i).Item(j))
Next
Next

Kind regards

Scotty