New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Function GetSubjectResults(ByVal Id As Integer) As String Dim strReturn As String = Nothing Dim dc As New myDataContext Dim q = From iterVar In dc.Subjects _ Where iterVar.ID = Id Select iterVar.Results If q.Count > 0 Then If q.First Is Nothing = False Then strReturn = q.First End If End If Return strReturn End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.