While Not RS.EOF
List1.AddItem RS!arti
RS.MoveNext
Wend
Text13.Text = RS!cedula
EN ESE CICLO WHILE AL DARLE LA INSTRUCCION MoveNext, POSICIONAS EL CURSOS HASTA EL FINAL YA QUE TERMINA EL CICLO, Y SI HACES: RS!cedula, NO TRAES NADA PQ YA SE RECORRIO TODA LA TABLA, DEBES DE HACERLO ANTES DE EJECUTAR EL CICLO.
SI NO TE FUNCIONA ASI, VUELVE A PREGUNTAR, RECUERDA QUE SIN AYUDA NO HAY CRECIMIENTO.
SALUDOS....