Skickar hela alltet så kanske det är mer lättöverskådligt..
Set objCommand= Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConn
objCommand.CommandType = adCmdText
Dim strSQL
strSQL = "SELECT COUNT(User_ID) as CNT FROM tblUserLog WHERE Log_Date BETWEEN #" & Now() & "# AND #"& tmpDate &"# "
Set objRS = objConn.Execute(strSQL)
DayUsers= objRS("CNT")
objRS.Close
Set objRS = Nothing
objConn.Close : Set objConn = Nothing