VB.NET赋值语句的有关问题

VB.NET赋值语句的问题
请教个问题，在VB.NET里面，把SQL查询出来的字段值赋给不同的变量，该怎么赋值呢，例如sql如下：
select serverip,bfserverip,serverport,bfserverport,agentid,agentgroupid,deviceaddress from CTI_SYS_SERVER 
比如我要把strServerIP = serverip ，strbfstrServerIP = bfserverip类似于这样赋值，该怎么写呢
------解决思路----------------------
从数据库查询出来一般是表格可以任意操作没什么不同获取表格行的列就是
------解决思路----------------------

 dim ConnectionString As String = "Data Source=" + Common.Server + ";Initial Catalog=" + Common.Db + ";User ID=" + Common.UId + ";Password=" + Common.Pwd

    ''' <summary>

    ''' 执行查询语句，返回DataSet

    ''' </summary>

    ''' <param name="SQLString">查询语句</param>

    ''' <returns>DataSet</returns>

    Public Function Query(ByVal SQLString As String) As DataSet

        Using connection As New SqlConnection(ConnectionString)

            Dim ds As New DataSet()

            Try

                connection.Open()

                Dim command As New SqlDataAdapter(SQLString, connection)

                command.Fill(ds, "ds")

            Catch ex As System.Data.SqlClient.SqlException

                Throw New Exception(ex.Message)

            End Try

            Return ds

        End Using

    End Function


Dim rec As DataTable

dim strServerIP,strbfstrServerIP  as string

 rec = SqlHelper.Query("select serverip,bfserverip,serverport,bfserverport,agentid,agentgroupid,deviceaddress from CTI_SYS_SERVER").Tables(0)

 For Each row As DataRow In rec.Rows

     strServerIP = row("serverip")

     strbfstrServerIP = row("bfserverip")

Next

连接数据库，查询出来赋值！
------解决思路----------------------
'楼上的方法挺完整的,我也给你提供一个参考.这个是针对数据量少的情况下,比较节省资源.
    Dim SqCon As New SqlClient.SqlConnection
    SqCon.ConnectionString = "数据库连接字符串"
    SqCon.Open()
    Dim strServerIP As String = String.Empty, strbfstrServerIP As String = String.Empty
    Dim GInf As SqlClient.SqlDataReader = New SqlClient.SqlCommand("select serverip,bfserverip,serverport,bfserverport,agentid,agentgroupid,deviceaddress from CTI_SYS_SERVER", SqCon).ExecuteReader
    If GInf.Read Then
      strServerIP = GInf.GetValue(0).ToString
      strServerIP = GInf.GetValue(1).ToString
    End If
    GInf.Close()
'注意: SqlDataReader使用完一定要关闭,否则再次使用数据库连接会报错!
------解决思路----------------------
可以考虑使用反射