''''call function
 
 
Private Sub loadLV()
 
'''''function in search'''''''''
 
On Error Resume Next
ListView1.ListItems.Clear
 
Do While Not General.EOF
Set items = ListView1.ListItems.Add(, , General.Fields!Log)
'items.SubItems(1) = rsSTUDENT.Fields!STUDENTNAME
items.SubItems(1) = General.Fields!Date
items.SubItems(2) = General.Fields!ATTENDANCE
 
General.MoveNext
Loop
End Sub