Private Sub vAll()
On Error GoTo err:
If rs.State = adStateOpen Then rs.Close
Me.lvlDtr.ListItems.Clear
rs.Open "SELECT * FROM tblTimeLog where LogDate Between #" & Me.DTPicker1.Value & "# AND #" & Me.DTPicker2.Value & "#;", cn, adOpenKeyset, adLockPessimistic
Do While rs.EOF = False
Me.lvlDtr.ListItems.Add , , rs.Fields("EM_ID").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(1) = rs.Fields("NAME").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(2) = rs.Fields("LogDate").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(3) = rs.Fields("TimeIn").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(4) = rs.Fields("TimeOut").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(5) = rs.Fields("E_ARRIVAL").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(6) = rs.Fields("L_IN").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(7) = rs.Fields("E_DEPT").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(8) = rs.Fields("L_DEPT").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(9) = rs.Fields("LATE").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(10) = rs.Fields("OT").Value
Me.lvlDtr.ListItems(Me.lvlDtr.ListItems.Count).SubItems(11) = rs.Fields("REMARK").Value
rs.MoveNext
Loop
Exit Sub
err:
MsgBox err.Description, vbCritical, "Error"
Set rs = Nothing
End Sub