[VBA函数]：[VBA函数]：如何连接ADO数据库

persistence2006

我想编一个连接数据库的程序从书上介绍连接数据库的方法如下：
Public conn As New ADODB.Connection
Public Sub boltType()
driver = "{Microsoft access driver(*.mdb)}"
dbq = "d:/Program Files/db1.mdb"
conn.Open "driver=" & driver & "; dbq= " dbq
End Sub
但我在执行的时候系统提示open 处语法错误，我查对象浏览器的介绍， Open([ConnectionString As String], [UserID As String], [Password As String], [Options As Long = -1])，和书中介绍的不一样，但不知道怎么使用，每个参数都代表什么意思，请各位高手指点。我该如何连接上access数据库，更想连接sql server数据库，有什么好使得方法吗？
我用的是autocad 2004编其他的vba程序都好使。
5.17改
找到一个好使的，是连接access2000,如果连access97把PROVIDER=Microsoft.Jet.OLEDB.4.0改成PROVIDER=Microsoft.Jet.OLEDB.3.51就可以了，代码如下
Set conn = New Connection
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=D:\tools\bolt.mdb;"
Set cmd.ActiveConnection = conn
cmd.CommandText = "select * from btype" 'operate in table "btype"
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic

但我很想知道连sql server的方法。请高手帮忙。