Punctuation incorrect
strSQL = "SELECT COUNT(A.[brugerID]) AS antal"strSQL = strSQL & "FROM (SELECT [brugerID] FROM [Statistik] GROUP BY [brugerID]) AS A; Where Dato=" & Date()
set rs = objConn.execute(Strsql)
Antal=rs("antal")
objConn.Close
set RS = nothing
set objConn = nothing
