Imports System.Data
 
Public Function GetData(ds as dataset) As String
 
Dim row() As System.Data.DataRow
 
Dim myRow As System.Data.DataRow
 
Dim sStr As String
 
sStr = ""
 
If ds.Tables.Count > 0 Then
 
row = ds.Tables(0)
 
For Each myRow In row
 
 if myRow("Comments) <> "" then
 
  sStr = sStr &  chr(10) + chr(13)  & myRow("Provider").ToString() & myRow("Comments").ToString()
 endif
 
Next
 
End If
 
Return sStr
 
End Function