Dim newdate As Data
'总是这个DateAdd("d", 30, Now（）)有错，缺少结束符号？
Adodc1.RecordSource = "select * from 库存表 where 限制日期 > now() and 限制日期 <  DateAdd("d", 30, Now)"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If

"select * from 库存表 where 限制日期 >'" &  now() & "' and 限制日期 <'" &    DateAdd("d", 30, Now) & "'"

Private Sub Command2_Click()
 Adodc1.RecordSource = "select * from 库存表 where 限制日期 > '" & Now() & "'  and 限制日期 <  '" & DateAdd("m", 1, Now) & "'"
 Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If
End Sub

什么数据库?
SQL?Access?Oracle?
SQL:
"select * from 库存表 where 限制日期 > '" & Now() & "'  and 限制日期 <  '" & DateAdd("m", 1, Now) & "'"

ACCESS:
"select * from 库存表 where 限制日期 > #" & Now() & "#  and 限制日期 <  #" & DateAdd("m", 1, Now) & "#"

Oracle:
"select * from 库存表 where 限制日期 > to_Date(" & format(Now(),"YYYYMMDD") & ","""YYYYMMDD"""  and 限制日期 <  to_Date(" & format(DateAdd("m", 1, Now),"YYYYMMDD") & ","""YYYYMMDD""")"

我窗体上有两个控件按钮-查询和退出，一个adodc,一个DataGrid（绑定到adodc1上）
代码如下：有错
Private Sub Command2_Click()
 Adodc1.RecordSource = "select * from 库存表 where 限制日期 > #" & Now() & "#  and 限制日期 <  # " & DateAdd("m", 1, Now) & "#  "
 Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
  MsgBox "没有即将到期的药品!"
  End If
End Sub
Private Sub Command1_Click()
MDIForm1.Show
Me.Hide
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ypcaigou.mdb"

End Sub

[[it] 本帖最后由 qgyun 于 2008-5-20 01:49 编辑 [/it]]

语法是没问题的,可能是你表名称的问题
试试这样:
"select * from [库存表] where [限制日期] > #" & Now() & "#  and [限制日期] <  # " & DateAdd("m", 1, Now) & "#  "
仔细看一下你各个字段的类型吧