VB.NET如何从数据库到文本框（多行）获取行值

Question

我有这段代码（在网上某个地方找到它，甚至在stackoverflow上也可以找到）

Dim SQL As String = "SELECT User FROM T1 WHERE User IS NOT NULL;"
Using con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\db2.accdb")
    Dim command As New OleDbCommand(Sql, con)
    con.Open()

    Dim reader As OleDbDataReader = command.ExecuteReader()
    While reader.Read()
        TextBox1.Text = reader(0).ToString()
    End While
    reader.Close()
End Using

在我的数据库中，我有3个用户，但是当我运行此代码时，文本框中仅显示最后一个。

假设我的桌子看起来像这样

User

one
two
three

但我的文本框仅显示“三个”

如何导出和显示“用户”列中的所有行，并用新行分隔它们？

如果容易的话，我想为列表框提供一个代码。 您知道，例如获取列名（使用sql查询），并为每行在listview中创建一个新项。

PS：代码工作正常，只需进行调整即可。 我在vb.net中使用数据库工作了大约3天，所以我的问题可能很简单，但对我来说仍然很困难。

谢谢。

Answer 1

  While reader.Read()
     TextBox1.Text &= reader(0).ToString() & Environment.NewLine 
  End While

还要确保设置TextBox1.Multiline = true