急！！！各位看一下,多谢！

Question

On Error GoTo lbSource
Dim sqlstr As String
Set mConn = New Connection
mConn.Open "provider=SQLOLEDB;server=tsy;uid=sa;password=tongshiyong;database=vms"
sqlstr = "Insert Into temp"
sqlstr = "select * from OpenDataSource('Microsoft.Jet.OLEDB.4.0'," & _
         "'Data Source=c:\test.xls;uid=;Password=;Extended properties=Excel 5.0')...sheet1$"
mConn.Execute sqlstrMsgBox "date lead to success!", vbOKOnly, App.TitleExit Sub
lbSource:
   MsgBox Err.Description, vbCritical, CStr(Err.Number)这段程序用来实现从Excel表格里的数据导入到SQL server 数据库中的temp表里
但是运行时出现如下错误：            未找到provider=Microsoft.Jet.OLEDB.4.0的注册表项！！！

Answer 1

1,是不是要升级MDAC 
2,你的sqlstr有问题吧，
sqlstr= "SELECT * into [youtable]
FROM OpenDataSource
('Microsoft.Jet.OLEDB.4.0','Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$"