因为sql server2008和之前的版本不同，特别是2000版的代码根本不能用于访问2008。因此总结了以下代码：

1.访问 sql server 2008

dim cnn as  ADODB.connection
set cnn = new connection
cnn.Provider = "SQL server native client 10.0"
cnn.Open "Server=127.0.0.1;Uid=sa;Pwd=1;Database=合纵连锁管理"  

2.在access中访问access数据库，代码如下：
dim cnn as new ADODB.connection
cnn.provider="Microsoft.Jet.OLEDB.4.0"     '访问2003版的用这个驱动
cnn.provider="Microsoft.ACE.OLEDB.12.0"  '访问2007版以上的用这个驱动
cnn.open ";Data Source=C:\test.mdb;Jet OLEDB:Database Password="