高手请看，SQL拼接不上啊

VBScript code

<%set rs=server.CreateObject("adodb.recordset")
name2 = trim(request.form("name"))
start_time = trim(request.form("Start_Time"))
end_time = trim(request.form("End_Time"))
sql = "select * from Table where 1=1"
if name2<>"" then sql = sql & " And Name LIKE '%" & name2 & "%'"
if start_time<>"" then sql = sql & " And DateDiff('d',Start_Time,'" & start_time & "')<0"
rs.open sql,conn,1,1 '////总提示这句“错误类型：Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) ODBC 驱动程序不支持所需的属性。”

%>

谢谢

数据库是Access吗？

Access的话：
1 start_time的值要正确 2011-1-1
2 Name之类的关键字加[]
<%
set rs = CreateObject("adodb.recordset")
name2 = trim(request.form("name"))
start_time = trim(request.form("Start_Time"))
end_time = trim(request.form("End_Time"))
sql = "select * from [Table] where 1=1"
if name2<>"" then sql = sql & " And [Name] LIKE '%" & name2 & "%'"
if start_time<>"" then sql = sql & " And DateDiff('d',Start_Time,#" & start_time & "#)<0"
rs.open sql,conn,1,1
%>

哈 晚上好，数据库是sql

是Ms SQL

sql server这样：
VBScript code

<%
set rs = CreateObject("adodb.recordset")
name2 = trim(request.form("name"))
start_time = trim(request.form("Start_Time"))
end_time = trim(request.form("End_Time"))
sql = "select * from [Table] where 1=1"
if name2<>"" then sql = sql & " And [Name] LIKE '%" & name2 & "%'"
if start_time<>"" then sql = sql & " And DateDiff(d,Start_Time,'" & start_time & "')<0"
rs.open sql,conn,1,1
%>