how to make a loop in listview?

[Ninoy]

here are my codes
Dim listitem As listitem
Dim FieldCount As Integer
Dim FieldLoopNo As Integer
Dim Column_Header As ColumnHeader
Dim intdate As Date


Dim i As Long

ListView1.Refre sh
FieldCount = Adodc1.Recordse t.Fields.Count - 1
For FieldLoopNo = 0 To FieldCount
FieldStringLeng ht = Len(Adodc1.Reco rdset.Fields(Fi eldLoopNo).Name ) + Int(10)

Set Column_Header = ListView1.Colum nHeaders.Add(, , Adodc1.Recordse t.Fields(FieldL oopNo).Name, 2000)
Next FieldLoopNo
While Not Adodc1.Recordse t.EOF
On Error Resume Next

Set listitem = ListView1.ListI tems.Add(, , Adodc1.Recordse t(0))
For FieldLoopNo = 1 To FieldCount
On Error Resume Next
listitem.SubIte ms(FieldLoopNo) = Left$(Adodc1.Re cordset(FieldLo opNo), 9)
listitem.SubIte ms(3) = Right$(Adodc1.R ecordset(FieldL oopNo), 11)
listitem.SubIte ms(4) = Right$(Adodc1.R ecordset(FieldL oopNo), 11)

Next FieldLoopNo

Adodc1.Recordse t.MoveNext
Wend
ListView1.Visib le = True
i need to do loop subitems,2,3 and 4 have the same data and format in date and time all that i need is the date for the subitem 2 and time for subitem 3 and lst for 4 with the lst log out tnx