Excel文件导入的Access文件时版本的问题

Question

Dim db As New ADODB.Connection
  Dim sPath As String
    
  db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text2.Text & ";Persist Security Info=False"
  sPath = Text1.Text
  Call db.Execute("INSERT into 成品交库 SELECT * From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
   MsgBox "导出成功", vbOKOnly, "提示"
  db.Close
  Set db = Nothing
这段代码适用2003版本，请问2007版本的如何改

Answer 1

安装一下Office文件格式转换器：FileFormatConverters.exe

Answer 2

谢谢，我已解决了
db.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"