又是excel导入到access数据库的问题,请大哥们进来看看

<%dim       conn         
      dim       conn2         
      'On       Error       Resume       Next         
    Server.ScriptTimeOut       =       999999      
      file1=request.form("file1")   
      set       conn=CreateObject("ADODB.Connection")         
      conn.Open       "Provider=Microsoft.Jet.OLEDB.4.0;data   Source="&Server.MapPath("data.mdb")           '导入的数据库名称         
      set       conn2=CreateObject("ADODB.Connection")                  
      conn2.Open       "Provider=Microsoft.Jet.OLEDB.4.0;   Extended   properties=Excel   5.0;data   Source="&Server.MapPath("file1")           '要导的EXCEL表         
      sql       =       "SELECT       *       FROM   [Sheet$]     "           
      set       rs       =       conn2.execute(sql)         
      while       not       rs.eof         
      sql       =       "insert       into       dd([名],[字])       values('"&       fixsql(rs(0))       &"','"&       fixsql(rs(1))       &"')"         
      'response.write       sql         
      'response.end   
      conn.execute(sql)         
      rs.movenext         
      Response.Write       "正在插入   "&sql&"<Br>   "      
      Response.Flush         
      wend         
  当程序执行到sql       =       "SELECT       *       FROM   [Sheet$]     "的时候就出错了,错误以下:   
  Microsoft   Jet   数据库引擎找不到对象'Sheet1$'。请确定对象是否存在，并正确地写出它的名称和路径。   
   
  要是我用的是绝对路径就不会出错了,但用虚拟路径就有这个问题了,请各位高手帮忙解决,谢谢