打开EXCEL遇到的问题，谁知道什么错误引起的，帮忙解决

[mimihuhu]

打开excel读取数据

sqlstr="SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=''D:\Store1.1\资源\20030826\aaa.xls'';User ID=admin;Password=;Extended properties=Excel 5.0')...[动画$]"

Dim conn As New ADODB.Connection
Dim rs as new adodb.recordset
conn.open constr
set rs=conn.excute(sqlstr)

出现下面错误：
Microsoft OLE DB Provider for ODBC Drivers[Microsoft][ODBC SQL Server Driver][SQL Server]已拒绝对 OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 的特殊访问。必须通过链接服务器来访问此提供程序。

[mimihuhu]

在线急等，谢谢哪位帮忙

[m366]

Dim oConn As New ADODB.Connection
With oConn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open "C:\Book1.xls"
'....
.Close
End Witho
Then
RS.Open "Select * from [Sheet1$]", oConn, adOpenStatic