Vb.net Sqldatareader中的列表

是否有一种方法可以将列表应用于此代码？在提供文本框和datareader项方面

Dim sConnection As String = "server=(local);uid=sa;pwd=PassWord;database=DatabaseName"
Using Con As New SqlConnection(sConnection)
    Con.Open()
    Using Com As New SqlCommand("Select * From tablename", Con)
        Using RDR = Com.ExecuteReader()
            If RDR.HasRows Then
                Do While RDR.Read
                    txtName.Text = RDR.Item("Name").ToString()
                Loop
            End If
        End Using
    End Using
    Con.Close()
End Using

---

你确定吗？你想要一个列表还是只向文本框中添加文本？有没有一种方法可以将列表应用于此代码？在提供文本框和datareader项目方面。请提供您需要的更多详细信息。

Dim sConnection As String = "server=(local);uid=sa;pwd=PassWord;database=DatabaseName"
Using Con As New SqlConnection(sConnection)
Con.Open()
Using Com As New SqlCommand("Select * From tablename", Con)
    Using RDR = Com.ExecuteReader()
        If RDR.HasRows Then
            Do While RDR.Read
                txtName.Text =txtName.Text & RDR.Item("Name").ToString() & VBCLRF
            Loop
        End If
    End Using
End Using
Con.Close()
End Using