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

[tong0302]

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 sqlstr

MsgBox "date lead to success!", vbOKOnly, App.Title

Exit Sub
lbSource:
MsgBox Err.Description, vbCritical, CStr(Err.Number)

这段程序用来实现从Excel表格里的数据导入到SQL server 数据库中的temp表里
但是运行时出现如下错误：

未找到provider=Microsoft.Jet.OLEDB.4.0的注册表项！！！

[笨笨兔兔兔兔兔]

用vba不是挺好的??

[fredlin]

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$"

[aohan]

用的是OFFICE的什么版本？

[tong0302]

office 2000 啊！