how can i get the first log as time in and last log as time out?

[Ninoy]

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) 'this is the date and time that i trim so that it only display the date
listitem.SubItems(3) = Right$(Adodc1.Recordset(FieldLoopNo), 11)'this is also the date and time that i trim for it to show only the time
i don't know the codes for it to loop so that it only show the first log in the same date and the last log of the same date and input it to the next column tnx...