你的事什么数据库?sqlserver?#改成单引号'
cnt = DataTables("配送客户分析").SQLCompute("Count(*)","联系电话='18274221888' and 日期 = '" & Date.ToDAY & "'") '统计历史记录条数