日期的比较，DTPicker的格式比较月份解决方案

日期的比较，DTPicker的格式比较月份
 
  Dim temp1
  Dim temp2
  temp1 = Format(Date, "m")
  temp2 = temp1 - 1
rs.Open "select * from 计量表 where 检定结论=''and 检定日期<= #" & temp1 & "# and 检定日期>= #" & temp2 & "# ", ADOcn, adOpenKeyset, adLockOptimistic

现在是错误时格式不对。
我是想对检定日期中的月和temp1和temp2中的月进行比较，这如何进行编写代码？

------解决方案--------------------
select * from 计量表 where 检定结论=''and datediff(Month,'2012-05-25',检测日期)=0
------解决方案--------------------
Dim temp1 As Date
Dim temp2 As Date
Dim strDate1 As String, strDate2 As String
Dim intYear As Integer, intMonth As Integer
Dim strSQL As String

intYear = 2012
intMonth = 4

temp1 = DateSerial(intYear, intMonth, 1)
temp2 = DateSerial(intYear, intMonth + 1, 1)
strDate1 = Format(temp1, "yyyy-mm-dd")
strDate2 = Format(temp2, "yyyy-mm-dd")

strSQL = "SELECT * FROM 计量表 WHERE 检定结论=''AND 检定日期>= #" & strDate1 & "# and 检定日期< #" & strDate2 & "# "

Debug.Print strSQL

----------------------------------------------

SELECT * FROM 计量表 WHERE 检定结论=''AND 检定日期>= #2012-04-01# and 检定日期< #2012-05-01#