先看看OLE DB Provider for ODBC的连法

Dim connstr As String
Set cn = New ADODB.Connection
cn.Provider = 'MSDASQL' Microsoft OLE DB Provider for ODBC)
因为是透过ODBC来做，所以connstr的设定，和使用RDO ODBC的连线字串皆相同
connstr = 'UID=cww;PWD=jjh5612;Database=cwwpf@eis;' _
+ 'Driver={OpenLink Generic 32 Bit Driver};' _
+ 'Host=192.168.0.61;' _
+ ';FetchBufferSize=30' _
+ ';NoLoginBox=Yes' _
+ ';Options=' _
+ ';Protocol=TCP/IP' _
+ ';ReadOnly=No' _
+ ';ServerOptions=' _
+ ';ServerType=Informix 7.2'
cn.ConnectionString = connstr
cn.Open

sql = 'Select * from testtab order by case_no'
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn 设定该Resultset依附在cn物件上开启
rs.CursorLocation = adUseServer
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Source = sql
rs.Open

　　如此启了一个Connection。不过这边要提出的是，ADO不像RDO它的Recordset物件不一定要附属於某一个已开启的Connection物件。回想一下，一般RDO Recordset的建立是透过 rdoConnection.OpenResultset或rdoQuery.OpenResultset的方式，而rdoQuery的建立是透过rdoConnection.CreateQuery，所以这里可见到rdoConnection/rdoQuery/rdoResultset 是有阶层观念的，rdoResultset一定要透过现存的一个rdoConnection物件才能建立，但是在ADO则不同，adoResultset物件可以自行就产生了，不必透过adoConnection物件，但它也可以将Connection依附在现存的adoConnection之下，像上面的例子便是如此。而以下的例子则是单独使用ado Resultset建立连线的方? 当然，单独使用Resultset物件来建立连线它也有建立一个adoConnection来连，只是我们没有办法Reference到它；而在比较复杂的系统(例如要有Transacction)，那还是得先从ado Connection物件建立起再来做。

connstr = 'UID=cww;PWD=jjh5612;Database=cwwpf@eis;' _
+ 'Driver={OpenLink Generic 32 Bit Driver};' _
+ 'Host=192.168.0.61;' _
+ ';FetchBufferSize=30' _
+ ';NoLoginBox=Yes' _
+ ';Options=' _
+ ';Protocol=TCP/IP' _
+ ';ReadOnly=No' _
+ ';ServerOptions=' _
+ ';ServerType=Informix 7.2'
sql = 'Select * from testtab order by case_no'
Set rs = New ADODB.Recordset
用以下的方式就不用单独设定CursorType/LockType/Source等等的属性，而原本第二
个参数是存放所依附的adoConnect物件，现在则改成连线的字串
rs.Open sql, constr, adOpenKeyset, adLockOptimistic

而使用OLE DB 的方式呢？

Set cn = New ADODB.Connection
connstr = 'Data Source=OPEN_VIEW;User=cww;Password=jjh5612;Initial Catalog=Pubs'
cn.Provider = 'SQLOLEDB' 设定Privder是SQL Server OLE DB，该名称随不同的
Database Privder不同而有所不同
cn.ConnectionString = connstr
cn.Open
sql = 'Select * from Authors'
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

　　上面的例子中，Data Source指的是SQL Server的名称，而Initial Catalog指的是Database名称在这里，我们也可以不设定Database的名称，而在ado Connection建立之後再来设
定Connection物件的DefaultDatabase如下：

Set cn = New ADODB.Connection
connstr = 'Data Source=OPEN_VIEW;User=cww;Password=jjh5612;'
cn.Provider = 'SQLOLEDB'
cn.ConnectionString = connstr
cn.Open
cn.DefaultDatabase = 'cwwtest'
sql = 'Select * from testtab'
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set rs2 = New ADODB.Recordset
cn.DefaultDatabase = 'Pubs'
rs2.Open 'Select * from Authors', cn, adOpenForwardOnly, adLockReadOnly

　　如此一来，同一个Connection物件，便可以有不同Database的asoResultset物件附於其上了。