你先显示一下合成的是什么字符串:
Messagebox.show("[日期] >= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框1").value & "# And [日期] <= #" & RibbonTabs("xiaoshoumokuai").Groups("shijianfanwei").Items("日期输入框2").value & "#")