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

Question

我有这样的代码（发现它的地方，在网络上，甚至在这里计算器）

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 =真