求助防止access日期字段的不重复导入的方法！！！

错误类型：
Microsoft JET Database Engine (0x80040E14)
INSERT INTO 语句包含下列未知的字段名： '时间'。确定键入的名称是正确的， 然后重试。
/project/复件 PUp.asp, 第 48 行


源代码如下：希望大侠指点了
<!-- #include file="adoconn.asp" -->
<%


'连接excel数据库
path="./"
Dim xlsconn,strsource,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd
Set xlsconn = server.CreateObject("adodb.connection") 
Set xlsrs = Server.CreateObject("Adodb.RecordSet")

filename="pcrsbook"
file2="Sheet1" 
source=server.mappath(path&filename&".xls")

myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &source& ";Extended Properties=Excel 8.0"
xlsconn.open myConn_Xsl 

sql = "Select * from ["&file2&"$]"
xlsrs.open sql,xlsconn,1,1 
If xlsrs.eof Then
else
i=1
response.write "<TABLE border=1>"
Do While not xlsrs.eof 
Crsdate=xlsrs("时间")
Channel=xlsrs("渠道")
Chain=xlsrs("集团")
Transform_Type=xlsrs("类型")
Sucess_Message=xlsrs("成功")
Total_Message=xlsrs("总量")
  Sucess_Ratio=xlsrs("成功率")
%>

<TR>
<TD>&nbsp;<%=Crsdate%></TD>
<TD>&nbsp;<%=Channel%></TD>
<TD>&nbsp;<%=Chain%></TD>
<TD>&nbsp;<%=Transform_Type%></TD>
<TD>&nbsp;<%=Sucess_Message%></TD>
<TD>&nbsp;<%=Total_Message%></TD>
  <TD>&nbsp;<%=Sucess_Ratio%></TD>
</TR>

<%
sql="insert into CRS_PReport(Crsdate,Channel,Chain,Transform_Type,Sucess_Message,Total_Message,Sucess_Ratio) select * from [Excel 5.0;HDR=YES;DATABASE=C:\Inetpub\wwwroot\project\pcrsbook.xls].[sheet1$] where 时间 not in (select Crsdate from CRS_PReport) "
 
conn.execute(sql)
i=i+1 
xlsrs.MoveNext
  Loop  
response.write "</table>"
End If
xlsrs.close

Response.write "共导入<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf

set xlsconn=nothing 
set objCmd=nothing 
%>

日期要转成字符串，xls出来的字段好像都是字符型的

一楼的大哥，好像不是字符格式的问题，错误提示中的48行 语句在源代码中是这句"conn.execute(sql)”,小弟望你再次赐教了！