datetime

And A.StartTime >= '" & Now.ToString("yyyy-MM-dd") & " 00:00:00' and A.StartTime <= '" & Now.ToString("yyyy-MM-dd") & " 23:59:59' "

convert(char(10), tb_ocorrencia.dt_ocorrencia, 121) between