查询下一个月数据,该怎么解决

查询下一个月数据
Private   Sub   lastmonth_click()
Adodc1.RecordSource   =   "select   *   from   2007   where   datediff( 'm ',日期,date())=0 "  
Adodc1.Refresh
End   Sub
'如何实现每点击一次自动查询下一个月的数据呢?

Private   Sub   lastmonth_click()
static   d   as   long  
d=0
d=d-1  
Adodc1.RecordSource   =   "select   *   from   2007   where   datediff( 'm ',日期,date())=d "  
Adodc1.Refresh
End   Sub

这样的语句为何不行？

[解决办法]
Private Sub lastmonth_click()
static d as long
d=0
d=d-1
Adodc1.RecordSource = "select * from 2007 where datediff( 'm ',日期,date())= " & d
Adodc1.Refresh
End Sub