[ADODC] Unknown error [ADO]

With a
    .RecordSource = "select proj_id, proj_name, proj_start, proj_end, proj_aut, proj_note, proj_active, case when now() BETWEEN COALESCE(proj_start, now()) AND COALESCE(proj_end, now()) then 'active' end from projects"
    .Refresh
End With