Pasar resultado de una columna a variables

[dargorsv]

tengo un codigo por aqui utilizando arraylist como te sugerian anteriormente ojala te sirva. Es una clase llamada Usuarios.

Código:

Imports System.Data.OleDb

Public Class Usuarios
    Public codUsuario As String
    Public nombre As String
    Public apellido As String
    Public servicio As String
    Public precio As String
    Public descripcion As String

    Private conexionConBD As OleDbConnection
    Private orden As OleDbCommand
    Private lector As OleDbDataReader
    Public strConexion As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                    "Data Source=H:\BaseDeDatosLaboratorio\basededatos.mdb;"

 Public Function getTodosLosUsuarios() As ArrayList

        Dim lista As ArrayList
        lista = New ArrayList

        conexionConBD = New OleDbConnection(strConexion)
        conexionConBD.Open()

        Dim consulta As String = "select  codigo, nombre, apellido, servicio, precio, descripcion  from tblservicios order by codigo asc"
        orden = New OleDbCommand(consulta, conexionConBD)

        lector = orden.ExecuteReader()

        While lector.Read
            Dim a As New Usuarios
            a.codUsuario = lector.GetInt32(0).ToString
            a.nombre = lector.GetString(1)
            a.apellido = lector.GetString(2)
            a.servicio = lector.GetString(3)
            a.precio = lector.GetString(4)
            a.descripcion = lector.GetString(5)
            lista.Add(a)
        End While
        lector.Close()
        conexionConBD.Close()
        Return lista
     End Function
End Class