primer elemento de datalist

[juantiva]

Te recomendaria que utilizaras colecciones typeadas con eso ahorras mucho trabajo, pero ahi te va como recorres el datalist

Private Sub SelectDataList()
Dim lista As DataList = New DataList
Dim ds As DataSet = New DataSet
ds = Run()
If ds.Tables.Count > 0 Then
lista.DataSource = ds.Tables(0)
lista.DataBind()
Dim i = 0
//aqui recorres el datalist
For i = 0 To lista.Items.Count
//aqui coloca lo que quieres hacer con los elementos del datalist
Next
End If
End Sub

Private Function Run() As DataSet
Dim myConnection As SqlConnection
Dim mySqlDataAdapter As SqlDataAdapter

Try
Dim myDataSet As DataSet = New DataSet

myConnection = New SqlConnection("Server=.; UID=sa; PWD=sa; Initial Catalog=northwind; Connect Timeout=15000")
mySqlDataAdapter = New SqlDataAdapter("select * from customers", myConnection)

mySqlDataAdapter.Fill(myDataSet, "Customers")

Return myDataSet
Catch e As Exception
Mensaje(e.ToString())
End Try

End Function

Public Sub Mensaje(ByVal strMensaje As String)
Me.Page.RegisterStartupScript("Mensaje", ("<script language=javascript> alert('" & strMensaje & "');</script>"))
End Sub