วนรอบหาค่าใน Object ที่ส่งมาจาก Stored Procedure

Dim objMail As New DataClassesHomeDataContext

Dim mail As String

Dim result = objMail.mod_getEditor_Mail().ToList.FindAll(Function(p) Not p.regEmail = "")

For Each p In result

   mail += p.regEmail.ToString & ";"

Next