我用opendatabase打开链接到Excel文件的mdb文件出错？？？？

Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb")
On Error Resume Next
dbs.Execute "DROP TABLE 在校学生;"
dbs.Execute "SELECT *  INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] "
dbs.Close
Set dbs = Nothing
Shell "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE " & App.Path & "\db1.mdb", vbMaximizedFocus