Dim d As Date = Date.TodayDim name As String = "AA"
cmd.CommandText = "Sele ct * From {订单明细表} Where 录入日期 > #" & d & "# And 客户名称='" & name & "'"
参考:http://www.foxtable.com/webhelp/scr/1284.htm