求助：怎样把数据从execl导入到access的程序！！急！！！

<%
dim conn
dim conn2
set conn=server.CreateObject("ADODB.Connection")
set conn2=CreateObject("ADODB.Connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=G:\book1.mdb"
conn.open
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Data Source=G:\book1.mdb"
conn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\book1.xls;Extended Properties=Excel 8.0;HDR=Yes;"
conn2.open

' conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Extended properties=Excel 5.0;Data Source=G:\book1.xls"

sql = "SELECT * FROM [Sheet1$]"
set rs = conn2.execute(sql)
while not rs.eof
sql = "insert into xxx(学号,姓名,性别,年龄) values('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) &"','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext
wend
response.Write(aa)

conn.close
set conn = nothing
conn2.close
set conn2 = nothing

function fixsql(str)
dim newstr
newstr = str
if isnull(newstr) then
newstr = ""
else
newstr = replace(newstr,"'","''")
end if
fixsql = newstr
end function
%>

以上程序怎么不能把execl中的数据导入access中？
xxx表：学号 姓名 性别 年龄
book.xls中的数据：学号 姓名 性别 年龄
1 aaa 男 12
2 bbb 女 13
3 ccc 男 14
4 ddd 男 15

想了很久都想不到合适的方式！！
谢谢！