变量是日期型的吧? 这样:
DataTables("出库验单").LoadFilter = "验单时间 >= '" & 变量 & "' And 验单时间 < '" & 变量.AddDays(1) & "'"DataTables("出库验单").Load()