Option Compare Database
Option Explicit
Const sSELECT = "SELECT tblUserLog.UserID, tblUserLog.LogIn, tblUserLog.LogOut " & "FROM tblUserLog "
Const sWHERE = "WHERE (((tblUserLog.LogOut) Is Null)) "
Const sORDER = "ORDER BY tblUserLog.LogIn DESC;"
Dim sSQL As String
Private Sub cmdAll_Click()...