这样写
Filter = "创建时间 >= #" & Date.Today & "# And 创建时间 < #" & Date.Today.Add(1) & "# And 客户名称 = '" & Value(3) & "'"