Limpiar Lista

tengo una funcion que me asigna datos a una lista, al
parecer la sentencia listitems.clear no funciona pues
cada vez que la invoco me agrega mas columnheaders a la
lista, como hago para que no pase eso??

Codigo de la funcion:
Public Sub FillListView(ByRef rs1 As ADODB.Recordset,
ByRef lista As AxMSComctlLib.AxListView)
Dim LI As MSComctlLib.ListItem
Dim i As Short

lista.ListItems.Clear()

For i = 0 To rs1.Fields.Count - 1
lista.ColumnHeaders.Add(, , rs1.Fields.Item
(i).Name, 150)
Next

While Not rs1.EOF
LI = lista.ListItems.Add(, , CStr(rs1.Fields
(0).Value))
For i = 1 To rs.Fields.Count - 1
LI.SubItems(i) = rs1.Fields(i).Value
Next
rs1.MoveNext()
End While
End Sub