Vb.net列表Sqldatareader

Question

有没有一种方法可以应用此代码列表？在提供文本框和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 

Answer 1

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