Someone

        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)
                count = count + 1
                articles(count-1) = id
		
	End While