Dim dt As Date = Date.Today.AddMonth(-1)
Dim str as string = "Select * From {订单} Where 日期 >#" & dt & "#"
建议先系统学习帮助,再做系统。