Si no quieres trabajar con clases puede hacer lo siguiente en el while...
Creas las variables necesarias...
Dim nombre As String
Dim inicio As String
Dim fin As Stirng
Código vb.net:
Ver originalWhile rs.Read
nombre = rs("SERVICIO")
inicio = rs("INICIO")
fin = rs("FIN")
End While
las variables usadas en el post anterior son
Código vb.net:
Ver originalDim Comando As New SqlCommand
Dim rs As SqlDataReader
Dim SQL As String
Saludos.-