ajuda com listview no vba(office 2003) carregando valores

estou com 1 listview no vba ok?
fiz uma query em uma tabela q tenho
abri a conexao com o banco...

Dim lcn As ADODB.Connection
Dim lrec As New ADODB.Recordset
Set lcn = New ADODB.Connection
Dim query as String


´abre conexao
lcn.connectiontimeout = 20
lcn.Open ConectaSC

query = ´SELECT * from CONTROLE_PTC ´
lrec.Open query, lcn, adOpenForwardOnly, adLockReadOnly

While Not (lrec.EOF)
ListView1.ColumnHeaders.Add 1, , ´Cadeia´
ListView1.ColumnHeaders.Add 2, , ´job´
ListView1.ColumnHeaders.Add 3, , ´subsistema´
ListView1.ColumnHeaders.Add 4, , ´modulo´

ListView1.ListItems.Add 1, , lrec(0)
ListView1.ListItems.Add 2, , lrec(1)
ListView1.ListItems.Add 3, , lrec(2)
ListView1.ListItems.Add 4, , lrec(3)

Wend
lrec.Close
lcn.Close


meu problema é, todo resultado do SELECT fica na coluna da ´ Cadeia ´ la no meu listview, queria q o lrec(0) fosse na cadeia, lrec(1) no job lrec(2) no subsistema....

entendem?

so quero q meus resultado fossem nas respectivas colunas que criei
Obrigado