Excel转access问题

我想建立一个基于客户信息管理和分析的系统，我的数据源是excel格式的，我想将其通过VB代码直接转为ACCESS，于是我在网上搜到这样一段代码！
注：其中sheetname 是excel表名"sheet1",sexcelpath是excel路径名我利用对话框选取的，saccesstable是access表名,saccessdbpath是access路径我也用对话框选择的。
private sub exportexcelsheettoaccess(sheetname as string,sexcelpath as string,saccesstable as string,saccessdbpath as string)
dim db as database
dim rs as recordset
set db=opendatabase(sexcelpath,true,false,"excel5.0")
call db.execute("select * into [;database=" & saccessdbpath &"]." & saccesstable & "from[" & ssheetname & "$]")
msgbox "table exported successfully",vbinformation ,"yans"
end sub

在程序中调用如下：
exportexcelsheettoaccess sheet1,path1,mdbname,path2
出现以下错误提识：、
查询语言至少需要一个表，或SQL语句。
调试发现sheetname 可以跟踪到表名，path1可以跟踪到绝对路径，saccesstable可以跟踪到表名，saccessdbpath可以跟踪绝对路径。
请教各位高手指点