EXCEL 导入到ACCESS数据库中少了一些数据

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
'连接excel数据库
Dim xlsconn,xlsstr,xlsrs,sql,i
       
Set xlsconn = server.CreateObject("adodb.connection")
xlsstr="Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath("productlist.xls")&";Extended Properties=Excel 8.0"
xlsconn.open xlsstr

Set xlsrs = Server.CreateObject("Adodb.RecordSet")
'sql = "Select * from [productlist$]"
sql  = "SELECT * from [" &  "Sheet1" & "$]"
xlsrs.open sql,xlsconn,1,3

If xlsrs.eof Then
response.Write "----------------"
else
    i=1
      response.write" <div align='center'>"
    response.write " <TABLE border=1>"
    Do While not xlsrs.eof
    lei1=xlsrs("产品所属大类")
    lei2=xlsrs("产品种类")
    lei3=xlsrs("产品子类")
      name1=xlsrs("产品名称")
      photo="images/upfile/"&xlsrs("产品图片名称")
      brand=xlsrs("品牌/产商")