毛周角化色素怎么去除:日期段查询

<form name="form2" action="" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr class="admin-right">
<td align="left">时 间 段<span class="style4">：
<select size="1" name="SYear2">
<% for i=Clng(Year(Date())) to Clng(Year(Date()))+6%>
<option value="<%=i%>" <%if SYear2=i then%> selected <%end if%>><%=i%>年</option>
<%next%>
</select>
<select size="1" name="SMonth2">
<%for i=1 to 12%>
<option value="<%=i%>" <%if SMonth2=i then%> selected <%end if%>><%=i%>月</option>
<%next%>
</select>
<select size="1" name="SDay2">
<%for i=1 to 31%>
<option value="<%=i%>" <%if SDay1=i then%> selected <%end if%>><%=i%>日</option>
<%next%>
</select>
</span>至<span class="style4">
<select size="1" name="SYear3">
<% for i=Clng(Year(Date())) to Clng(Year(Date()))+6%>
<option value="<%=i%>" <%if SYear3=i then%> selected <%end if%>><%=i%>年</option>
<%next%>
</select>
<select size="1" name="SMonth3">
<%for i=1 to 12%>
<option value="<%=i%>" <%if SMonth3=i then%> selected <%end if%>><%=i%>月</option>
<%next%>
</select>
<select name="SDay3" size="1">
<%for i=1 to 31%>
<option value="<%=i%>" <%if SDay3=i then%> selected <%end if%>><%=i%>日</option>
<%next%>
</select>
</span>
<input name="ssid1" type="hidden" value="<%=m32("id")%>">
</td>
<td>

<input name="submit1" type="submit" value="查寻">
</td>
</tr>
</table>

</form>
<%
ssid1=trim(request.form("ssid1"))
SYear2=trim(Request.form("SYear2"))
SMonth2=trim(Request.Form("SMonth2"))
SDay2=trim(Request.Form("SDay2"))
SYear3=trim(Request.form("SYear3"))
SMonth3=trim(Request.form("SMonth3"))
SDay3=trim(Request.form("SDay3"))
house_owner_time11=SYear2&"-"&SMonth2&"-"&SDay2
house_owner_time11=cdate(house_owner_time11)
house_owner_time21=SYear3&"-"&SMonth3&"-"&SDay3
house_owner_time21=cdate(house_owner_time21)
if ssid1<>"" then
set ms1=server.CreateObject("adodb.recordset")
sqls1="select * from time1 where ('ba between "&house_owner_time1&" and "&house_owner_time2&"') and rootid="&ssid1&""
ms1.open sqls1,conn,3,3
else
a1=trim(m32("id"))
set ms1=server.CreateObject("adodb.recordset")
sqls1="select * from time1 where rootid="&a1&""
ms1.open sqls1,conn,3,3
end if

cdate类型不符
请各位高手帮忙???????????