private Sub Item_Created(sender As Object, e As DataListItemEventArgs) handles datalist1.ItemCreated
if e.Item.ItemType=ListItemType.Item or e.Item.ItemType=ListItemType.AlternatingItem then
dim lb as Label= CType(e.Item.FindControl("label1"), Label)
lb.Text=((CType(e.Item.DataItem, DataRowView)).Row.ItemArray(0).ToString())
end if
end sub