Visual Basic - Necesito almacenar los datos d

Necesito almacenar dos fila de un select en variables de Visual Basic 6.0, Ejemplo
El “Select * from empleados” me devuelves estos valores

Nombre Apellido Tel
Luis Javier 809-555-5555
Pedro Pérez 809-555-5500

Y quiero almacenarlos en estas variables.

VariableNombre1=Luis
VariableApellido1=Javier
VariableTelefono1=809-555-5555

VariableNombre1=Pedro
VariableApellido1=Pérez
VariableTelefono1=809-555-5500

porque en variables?? porque no usas el recordset??

si lo quieres seguir usando en variables, pues tendras que usar arreglos.

dim VariableNombre1() as string
dim VariableApellido1() as string
dim VariableTelefono1() as string

luego de hacer tu consulta a la base de datos

redim VariableNombre1(rs.recordcount)
redim VariableApellido1(rs.recordcount)
redim VariableTelefono1(rs.recordcount)

for i=0 to rs.recordcount-1

VariableNombre1(i)=rs(0)
VariableApellido1(i) =rs(1)
VariableTelefono1(i) =rs(2)
rs.movenext
next i