Excel数据导入到Access

下面是asp的全部程序，需要做的是建一个test.mdb数据库和一个test.xls的Excel

<%
'此例子是由Excel数据导入到Access。注意的是Excel的第一行才是字段名，不然Excel的第一行就导不进来
dim conn '定义一个Excel连接变量
dim conn2 '定义第二个Access连接变量
On Error Resume Next
Server.ScriptTimeOut = 999999 '超时时间
set conn=CreateObject("ADODB.Connection")
conn.Open "Provider =Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="&Server.MapPath ("test.mdb") '要导入的数据库名称，这里是test.mdb

set conn2=CreateObject("ADODB.Connection")
conn2.Open "Provider =Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties =Excel 5.0;Data Source="&Server.MapPath("test.xls") '要导入的EXCEL表名称 test.xls

'查询Excel准备导入到Access
sql = "SELECT * FROM [Sheet1$]" '要导入的Excel数据里面的表的名称，后面一定要加$
set rs = conn2.execute(sql)
while not rs.eof
sql2 = "insert into tb_zhenya(zhenya) values('"& rs(0) &"')" 'rs(0)是Excel的第几个字段。这里是第一个字段
conn.execute(sql2)
rs.movenext
Response.Write "正在插入 "&sql2&"<Br>"
Response.Flush
wend
conn.close
set conn = nothing
conn2.close
set conn2 = Nothing

If Err = 0 Then
Response.Write "导入成功"
Else
Response.Write "导入失败!"
End If
%>