Pasar resultado de una columna a variables

[pyroCL]

Vé este código...

Clase Servicio...

Código VB.Net:

Public Class Servicio
    Dim nombre As String
    Dim horaInicio As String
    Dim horaFin As String
    Public Sub constructor(ByVal n As String, ByVal i As String, ByVal f As String)
        nombre = n
        horaInicio = i
        horaFin = f
    End Sub
    Public Function getIni() As String
        getIni = horaInicio
    End Function
    Public Function getfin() As String
        getfin = horaFin
    End Function
    Public Function getNombre() As String
        getNombre = nombre
    End Function
End Class
 

Ahora, desde la BD rescato todos los valores que estén en la tabla HA_SERVICES_H, los cuales son nombre, hora inicio y hora fin...
Cada uno de estos los guardo en una lista (en vez de listas pordrías usar variables string o cosas así, pero al hacer eso sólo tienes que tener un valor por variable), es decir debes dar una condición al SELECT, que puede ser WHERE Nombre='"nombre1"'

Código vb.net:

Dim servicio As New Servicio
        SQL = "select * from HA_SERVICES_H order by INICIO"
        'en el metodo conectar está el string de conexion a la base de datos
        Comando.Connection = conectar()
        Comando.CommandText = SQL
        Dim lista As New Collection
        Dim lista2 As New Collection
        Dim lista3 As New Collection
        rs = Comando.ExecuteReader()
        While rs.Read
            servicio.constructor(rs("SERVICIO"), rs("INICIO"), rs("FIN"))
            lista.Add(servicio.getNombre)
            lista2.Add(servicio.getIni)
            lista3.Add(servicio.getfin)
        End While
        Comando.Connection.Close()
 

Espero te sirva.
Saludos.