[5分]时间查询SQL如何运行？

 Dim date1 As String    '月初第一天
    Dim date2 As String    '月末最后一天
    Dim strsql1 As String
    date1 = "#" & Me.sDate & "#"    '月初第一天
     DoCmd.SetWarnings False
    '根据sDate时间查询qryYyb_hmcswgl
  strsql1 = "SELECT qryyyb_hmcswgl.退休号, qryyyb_hmcswgl.姓名, qryyyb_hmcswgl.性别, qryyyb_hmcswgl.小组, qryyyb_hmcswgl.二级单位, qryyyb_hmcswgl.死亡标记, qryyyb_hmcswgl.死亡日期, qryyyb_hmcswgl.死亡类别, qryyyb_hmcswgl.死亡原因, qryyyb_hmcswgl.统计, qryyyb_hmcswgl.出生日期, qryyyb_hmcswgl.政治面貌, qryyyb_hmcswgl.职务职称, qryyyb_hmcswgl.退休日期, qryyyb_hmcswgl.现住址, qryyyb_hmcswgl.手机, qryyyb_hmcswgl.座机, qryyyb_hmcswgl.备注 FROM qryyyb_hmcswgl WHERE qryyyb_hmcswgl.死亡日期 >  '#1/1/2012# '"

    'strsql1 = "SELECT qryyyb_hmcswgl.退休号, qryyyb_hmcswgl.姓名, qryyyb_hmcswgl.性别, qryyyb_hmcswgl.小组, qryyyb_hmcswgl.二级单位, qryyyb_hmcswgl.死亡标记, qryyyb_hmcswgl.死亡日期, qryyyb_hmcswgl.死亡类别, qryyyb_hmcswgl.死亡原因, qryyyb_hmcswgl.统计, qryyyb_hmcswgl.出生日期, qryyyb_hmcswgl.政治面貌, qryyyb_hmcswgl.职务职称, qryyyb_hmcswgl.退休日期, qryyyb_hmcswgl.现住址, qryyyb_hmcswgl.手机, qryyyb_hmcswgl.座机, qryyyb_hmcswgl.备注 " _
              '& "FROM qryyyb_hmcswgl " _
              '& "WHERE qryyyb_hmcswgl.死亡日期 > " & date1
              DoCmd.RunSQL strsql1

条件：sDate=2013-1-1

想用SQL执行条件查询，总是通不过？求助？