求大虾帮忙解决下这个问题?在类里循环DataReader.read()

[lsyapple]

这是类的代码:
Function GetDataReader(ByVal sSelect As String, ByVal SqlTable As Object, ByVal Label As Object)
Dim Sql = "select " & sSelect & "From " & SqlTable
ObjConn.Open()
objCommand = New SqlClient.SqlCommand(Sql, ObjConn)
sDataReader = objCommand.ExecuteReader()
Dim i As Integer
While sDataReader.Read()
For i = 0 To sDataReader.FieldCount - 1
Label = sDataReader.Item(i)
Next
End While
Return Label
End Function
'-----------------------------------------------------------
这是我调用的代码
'-----------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim sRd As New Chg_information.SqlOperate("Localhost", "Mysite", "sa", "lsy123")
Label1.Text = sRd.GetDataReader("*", "SoftWare", Label1)

End If

End Sub
'-----------------------------------------------------------

这样只能读出来一条数据.并没起到循环的作用.
我想问下有没有好的办法可以实现调用的输出? 或者有什么办法可以把 sDataReader.Item(i) 的值传出来?

求大虾帮忙

[saucer]

something like

Function GetDataReaderData(ByVal sSelect As String, ByVal SqlTable As Object) as String

dim sb as New System.Text.StringBuilder

Dim Sql = "select " & sSelect & "From " & SqlTable

try
ObjConn.Open()
objCommand = New SqlClient.SqlCommand(Sql, ObjConn)
sDataReader = objCommand.ExecuteReader()
Dim i As Integer
While sDataReader.Read()
For i = 0 To sDataReader.FieldCount - 1
sb.AppendFormat("{0}={1} ", sDataReader.GetName(i),sDataReader.Item(i))
Next
End While

sDataReader.Close()
finally
if not objConn is nothing then
objConn.Close()
end if
end try

return sb.ToString()
End Function

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Not Page.IsPostBack Then
Dim sRd As New Chg_information.SqlOperate("Localhost", "Mysite", "sa", "lsy123")
Label1.Text = sRd.GetDataReaderData("*", "SoftWare")
End If

End Sub
'-----------------

[lsyapple]

谢谢大虾~!