请aspic我修改了后,又提示Microsoft JET Database Engine (0x80004005)不可识别的数据库格式 'F:\临朐农信培训档案 - 编程论坛

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<% dim xlsconn,xlsrs,sql,rs,sql1,sundx,connstr1
set xlsconn=server.CreateObject("adodb.connection")
sundx="../data/ygb.xls"
         Set xlsconn = Server.CreateObject("ADODB.Connection")
connstr1= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(""&sundx&"")
xlsconn.open connstr1
set xlsrs=server.CreateObject("adodb.recordset")
sql="select * from [ygjbxx$]"
xlsrs.open sql,xlsconn,3,3
set rs=server.CreateObject("adodb.recordset")
sql1="select * from info"
rs.open sql1,conn,3,3
do while not xlsrs.eof
      rs.addnew
      rs("员工号")=xlsrs("员工号")
      rs("单位")=xlsrs("单位")
      rs("姓名")=xlsrs("姓名")
      rs.update
xlsrs.movenext
loop
%>
</body>
</html>