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.Refresh
FieldCount = Adodc1.Recordset.Fields.Count - 1
For FieldLoopNo = 0 To FieldCount
FieldStringLenght = Len(Adodc1.Recordset.Fields(FieldLoopNo).Name) + Int(10)

Set Column_Header = ListView1.ColumnHeaders.Add(, , Adodc1.Recordset.Fields(FieldLoopNo).Name, 2000)
Next FieldLoopNo
While Not Adodc1.Recordset.EOF
On Error Resume Next

Set listitem = ListView1.ListItems.Add(, , Adodc1.Recordset(0))
For FieldLoopNo = 1 To FieldCount
On Error Resume Next
listitem.SubItems(FieldLoopNo) = Left$(Adodc1.Recordset(FieldLoopNo), 9)
listitem.SubItems(3) = Right$(Adodc1.Recordset(FieldLoopNo), 11)
listitem.SubItems(4) = Right$(Adodc1.Recordset(FieldLoopNo), 11)

Next FieldLoopNo

Adodc1.Recordset.MoveNext
Wend
ListView1.Visible = 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