Displaying multiple results in one row

  
Dim Acon As New SqlConnection(QryStr)
	Dim AQry As String
	AQry = "SELECT Expert.ExpertID, Expert.CustomerID, Expert.ProfessionTitle, Expert.RatePerMin, " & _
	  "Expert.Service, Expert.keywords, vm_categories.CategoryName FROM Expert LEFT JOIN " & _
	  "vm_providers_to_categories ON Expert.ExpertID = vm_providers_to_categories.ExpertID " & _
	  "LEFT JOIN vm_categories ON vm_providers_to_categories.CategoryID = vm_categories.CategoryID ORDER BY Expert.ExpertID"
	
	Acon.Open()
	
	Dim ADScmd As New SqlDataAdapter(AQry, Acon)
	
	Dim ADS As New DataSet()
	
	ADScmd.Fill(ADS, "SearchResult")
   
	Dim AgentTable As DataTable = ADS.Tables.Item("SearchResult")
	
	'Set a DataGrid's DataSource to the DataView, then Bind
	AgentGrid.DataSource = AgentTable 
	AgentGrid.DataBind()
	
	'Close Agent SQL Connection
	Acon.Close()

 
Dim conn1 as SqlConnection = New SqlConnection(QryStr)
Dim conn2 as SqlConnection = New SqlConnection(QryStr)
Dim cmd1 as SqlCommand = new SqlCommand (<Select all persons>)
Dim cmd2 as SqlCommand 
Dim reader1, reader2 as SqlDataReader
 
conn1.open
reader1=cmd.ExecuteReader
if reader1.HasRows then
	 while reader1.Read 
		  cmd2 = new SqlCommand("Select Hobby From Table2 Where ID = " & reader1("ID"))
		  conn2.Open
		  reader2 = cmd2.ExecuteReader
		  if reader2.HasRows then
			   Response.Write(reader1("Name") & " - ")
			   while reader2.read
					Response.Write(reader2("Hobby") & ", ")
			   end while <or loop, I forget the exact syntax>
		  else 
			   Response.Write("No hobbies for this person")
		  end if
		  reader2.close
		  conn2.close
	 end while <again, I forget the exact syntax>
else
	 Response.Write ("No people found")
end if
reader.close
conn.close