请帮我通过这段代码！急！！

[superego]

此代码为将excel数据导入access数据库;
'该示例已经测试通过,注意：在测试该程序前，在服务器上先建立一个数据库DRUGDB,在该数据库中建立一张表newsort,字段为：sort_id(类型为int),sort_Name(类型为varchar(100)
Dim Adocon As ADODB.Connection
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
'Excel导入到SQL Server
Adocon.Execute ("insert into newsort(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")
Adocon.Close
Set Adocon = Nothing

我用的是access2000数据库和excel2000...
我将connectionstring改为：
Adocon.ConnectionString ="Provider =Microsoft.Jet.OLEDB.4.0;Data Source=C:\DRUGDB.mdb"
把 Extended properties=Excel 5.0 改成了 Extended properties=Excel 9.0

我运行时，提示 from字句语法错误。。。还需要改什么，是否我改错哪里？哪位高手能将这段代码通过。。。谢谢。。急

[chenyu5188]

需要引用更高版本的组件,到工程-->引用-->Excel 9.0的工程库

还有安装一下最新的ADO驱动引擎

[TechnoFantasy]

Adocon.Execute ("insert into newsort(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")
修改一下：
Adocon.Execute ("insert into newsort(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=""" & App.Path & """\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")

[shuaishen12]

Adocon.Execute ("insert into newsort(sort_id,sort_name) values(SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$])")

这样试试呢