Mine

        Dim count As Integer = 0
	Dim articles() As String
	
	While objRdr.Read()
		
                Dim id As Integer = objRdr.GetValue(objRdr.GetOrdinal("id"))
		
		ReDim Preserve articles(count)
                articles(count) = id
		count = count + 1
	End While