将Excel数据快速大批量导入Access数据库的代码

在做项目时，经常遇到要将Excel中的大量数据导入到Access数据库中，原来的做法是读一条写一条，若导入上万条的数据需要几分仲时间，速度很慢。有没有最快的方法呢？经本人研究、反复的实验，终于写出了最快速的批量导入大批量数据的方法，上万条数据只需几秒钟就可全部导入，够快了吧。代码公布出来与大家分享。

Set conn = Server.CreateObject("adodb.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("test.mdb")
conn.Open connstr
sql = "insert into userinfo select userName,userAccount,userStatus from [userinfo$] in '" & Server.MapPath("hbwlUserInfo.xls")
 & "' 'Excel 8.0;' where userAccount is not null"
conn.Execute (sql)