how to display multiple values in one textbox getting them from a database

See more:

VB

Button get_email

Dim objt As New List(Of Email)
        Dim objbus As New Email
        objt = objbus.Get_Email()
        If objt.Count <> 0 Then
            For Each objbus In objt
                TxtTo.Text = objbus.Emaill
            Next
        End If

Class Email

Public Function Get_Email() As List(Of Email)
        Dim objtela As New CData
        Dim objfem As New List(Of Cparameter)
        Dim objda As New List(Of Email)
        Dim dr As IDataReader
        dr = objtela.executespreturndr("E_Stud", objfem)
        Using dr
            While (dr.Read)

                Dim par As New Email
                populate_email(dr, par)
                objda.Add(par)
            End While
        End Using

        Return objda
    End Function

    Public Sub populate_email(ByVal dr As IDataReader, ByVal objwena As Email)
        objwena.Emaill = dr.GetString(0)
    End Sub

how to display multiple values in one textbox getting them from a single field in a database sql server 2008