End If

Guest writer Dave chimes in while Big Nose Barney abandons hope:

Sub dlstArticleList_DataBound(s as object, e as DataListItemeventargs)
If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType =
ListItemType.AlternatingItem then
Dim hplReadMore as Hyperlink =
CType(e.Item.FindControl("hplReadMore"), Hyperlink)
hplReadMore.Text = CType(DataBinder.Eval(e.Item.DataItem,
"ArticleTitle"), String)
End if
End Sub

If e.Row.RowType = DataControlRowType.DataRow Then

Dim hplReadMore as Hyperlink =
CType(e.Row.FindControl("hplReadMore"), Hyperlink)
Dim lblBody as Label = CType(gvArticles.FindControl("lblBody"),
Label)

hplReadMore.Text = CType(DataBinder.Eval(e.Row.DataItem,
"ArticleTitle"), String)

End if
End Sub

So it goes.