还是用ADO访问吧. 可用于 SQL Server 6.5,7.0,2000等,也可用于ACCESS但要更改Provider.
'定义ADO连接 , sa 是用户名 Server001是服务器名,DB1 是数据库名
Dim CON As ADODB.Connection
Set CON = New ADODB.Connection
With CON
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DB1;Data Source=server001"
.CommandTimeout = 500
.Open
End With