Miscellany

	Dim count As Integer = 0
	Dim articles()(4) 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"))
		
		ReDim Preserve articles(count)
		articles(count)(0) = headline
		articles(count)(1) = copy
		articles(count)(2) = month
		articles(count)(3) = day
		articles(count)(4) = year
		count = count + 1
	End While