Error en ListView

Tengo un problema muy curioso. En algunos equipos me funciona y en otros

y no encuentro el error.

Tengo un RecordSet con información (no contiene nulos) y lo vuelco a un
listview con el siguiente código:

dim li as listitem

listview.listitems.clear
do while not rs.eof
set li = listview.listitems.add(,,rs.fields(1))
li.listsubitems.add ,, rs.fields(4)

rs.movenext
loop

Agradezco cualquier ayuda