Hola!!
No pusiste tu CODE para darte sugerencias... yo cargo asi:
Código vb:
Ver originalDim lsvNum As Double
lsvNum=1
Do While Not rsUsuarios.EOF
Set lsvItem = lsvUsuarios.ListItems.Add(, , " - " & lsvNum, , 1)
lsvItem.SubItems(1) = rsUsuarios!CODIGO
lsvItem.SubItems(2) = UCase(rsUsuarios!USERID)
lsvItem.SubItems(3) = UCase(rsUsuarios!NOMBRE)
lsvNum = lsvNum + 1
rsUsuarios.MoveNext
Loop