query.bas

"select w.WWORK_START AS work_date," & _
    " w.WWORK_FINISH AS finish_date," & _
    " p.PROJ_NAME as Project," & _
    " a.TASK_NAME as Task," & _
    " a.WASSN_COMMENTS as Comment," & _
    " w.WWORK_VALUE / 60000 as work," & _
    " r.RES_NAME as Resource," & _
    " r.WRES_ID as resource_id," & _
    " datediff(d,w.wwork_start,w.wwork_finish)+1 AS work_days" & _
" from MSP_WEB_RESOURCES r," & _
     "MSP_WEB_ASSIGNMENTS a," & _
     "MSP_WEB_PROJECTS p," & _
     "MSP_WEB_WORK w" & _
" where w.WWORK_TYPE = 1" & _
  " and w.WASSN_ID = a.WASSN_ID" & _
  " and a.WPROJ_ID = p.WPROJ_ID" & _
  " and a.WRES_ID = r.WRES_ID" & _
  " and w.WWORK_FINISH between '" & _
    Format(startDate, "yyyy-mm-dd") & "' and '" & Format(endDate, "yyyy-mm-dd") & "'" & _
  " and w.WWORK_VALUE > 0"