Как насчет этого:
Dim str As String = ""
If Not Session("Brief") Is Nothing Then
Dim dt As DataTable = TryCast(Session("Brief"), DataTable)
If Not dt Is Nothing AndAlso dt.Rows.Count > 0 Then
For Each dr As DataRow In dt.Rows
If (str.Length > 0) Then
str += ","
End If
str += dr("talentID").ToString()
Next
End If
End If
Return str
Используйте TryCast и проверка произнесения прошла успешно или нет ...
А вот версия с небольшим количеством LINQ для хорошей меры:
Dim str As String = ""
If Not Session("Brief") Is Nothing Then
Dim dt As DataTable = TryCast(Session("Brief"), DataTable)
If Not dt Is Nothing AndAlso dt.Rows.Count > 0 Then
str = Join((From r In dt Select CStr(r("talentID"))).ToArray, ",")
End If
End If
Return str