return multiple value in webservices in vb.net

Hello everyone.

Been working on this for about 2 weeks now and done some things great, but can't get it to do above.

I have created a web service that will insert any data i want into a sql database, however, when i try and retreive data from the database using what i know, i only get the last record rather than all 20 records returning.

So, i thought i would be clever and get it to return the value everytime it loop through the records, however, it only bring up the first record, not the last.

Can any help me try and get it to display all 20 records when i involke the service. From there, i should be able to display it in another application.

Code below

Thank you in advance

Imports System.Web.Services
Imports System.Data.SqlClient


<WebService(Namespace:="http://website.co.uk/")> Public Class TeamList

#Region " Web Services Designer Generated Code"

#End Region

    <WebMethod()> Public Function TeamDisplay()

        'Connect to DB and get the XML code for the teams

        Dim conn As SqlConnection
        
        conn = New SqlConnection("Data Source=localhost;Initial Catalog=DatabaseTest;Persist Security Info=True;User ID=user;Password=password")

        Dim cmd As SqlCommand

        cmd = New SqlCommand("select Team from CalenderTeam", conn)
        



        Try
            conn.Open()
            Dim rdr As SqlDataReader
            rdr = cmd.ExecuteReader

            If rdr.HasRows Then

                While rdr.Read()

                    Return Display1

                End While

            Else


            End If

        Finally
            conn.Close()
        End Try



    End Function




End Class

Select all Open in new window