Dim count As Integer = 0
	Dim articles(0)() As String
	
	While objRdr.Read()
		
		Dim headline As String = objRdr.GetValue(objRdr.GetOrdinal("headline"))
		Dim copy As String = objRdr.GetValue(objRdr.GetOrdinal("copy"))
		Dim month As Integer = objRdr.GetValue(objRdr.GetOrdinal("month"))
		Dim day As Integer = objRdr.GetValue(objRdr.GetOrdinal("day"))
		Dim year As Integer = objRdr.GetValue(objRdr.GetOrdinal("year"))
                Dim year As Integer = objRdr.GetValue(objRdr.GetOrdinal("id"))
		
		ReDim Preserve articles(count)(5)
		articles(count)(0) = headline
		articles(count)(1) = copy
		articles(count)(2) = month
		articles(count)(3) = day
		articles(count)(4) = year
                articles(count)(4) = id
		count = count + 1
	End While