now를 사용해서 DB에 varchar(50)으로 날짜와 시간을 넣는데요..

오늘 하루의 날짜와 시간만 출력하려 할 때 쿼리문을 

Dim strToday

strToday = date

strSQL = "Select * from Information where strDate between " & "strToday " & "AM 01:00:00" & " and " & "strToday " & "PM 11:59:59"

이렇게 작성 해 봤는데 '01'부분에서 에러가 나더라고요..

쿼리문을 어떻게 작성해야 하는지 도와주세요..ㅠ_ㅠ