Visual Basic - Se mueven los datos en listview

Buenas muchachos, tengo inconvenietes con el listview.

Para empezar, el control tiene 8 columnas,en el evento alabrir del fomulario aplico unafuncion que completa las colmunas 1,2,3,7 y 8, con registros de una tabla lo cual no biene al caso, quedando sin datos las comunas 4,5 y 6, en un boton de commando en el formulario tengo otro procedimiento que les pego aqui abajo el cual calcula ciertos resultados y los inserta en el control, el problema es que al calcular y luego insertar estos datos me corre y hace desaparecer los datos de las columnas 7 y 8, desde ya muchas gracias de antemano por su tiempo y ayuda.

Este es el procedimiento para llenar las columnas 4,5 y 6

Private Sub Command2_Click()
Dim i As Long
Dim item As ListItem
Dim cantidades As Integer
Dim Grupo As Integer
Dim concepto As Currency
Me.ListView1.ListItems.Clear
Call FiltrarConceptos
For i = 1 To Me.ListView1.ListItems.Count
Grupo = Dlookup("grupo", "Tbl_Conceptos", "codigo=" & Me.ListView1.ListItems.item(i), "")
concepto = o_Script.Eval("Form_Liq_Individual." & Me.ListView1.ListItems.item(i).SubItems(6))
cantidades = o_Script.Eval("Form_Liq_Individual." & Me.ListView1.ListItems.item(i).SubItems(7))
Set item = Me.ListView1.ListItems.item(i)

'Establecemos la cantidad
item.ListSubItems.Add(2) = cantidades

'Si es de grupo 1 es Remuneracion
If Grupo = 1 Then
item.ListSubItems.Add(3) = FormatCurrency(concepto * cantidades)
End If

'Si es de grupo 2 es retension,deduccion,descuento, etc
If Grupo = 2 Then
item.ListSubItems.Add(4) = FormatCurrency(concepto * cantidades)
End If

'Si es de grupo 1 es Asignacion,Conceptos no sujetos a retension, etc
If Grupo = 3 Then
item.ListSubItems.Add(5) = FormatCurrency(concepto * cantidades)
End If

Next i