Value not showing

Can someone explain why I am not getting the value I want.  I am always seeing 0 even though I have a record in the DB with the value of 12/31/2003 in the Timestamp column.  It is an Access DB with the shortdate type for the Timestamp column.

sql="SELECT * FROM tblUsers WHERE Timestamp = #"& date() &"#"

 rsUserReport.Open sql, adoCon
    Dim rSum
 rSum=0
 Do While Not rsUserReport.EOF
  rSum=rSum+1
  rsUserReport.MoveNext
 Loop
 rsUserReport.close

Response.Write (  rSum  )