1．通过CreateObject方法来创建连接，具体代码如下：

　　　Dim conn1

　　　Set conn1 = CreateObject("ADODB.Connection.2.0")

　　2．通过使用Dim ... as ...方法来创建连接

　　　Dim conn2 As ADODB.Connection

　　　Set conn2 = New ADODB.Connection

　　3．通过使用Dim ... as ... New的方法来创建连接

　　　Dim conn3 As new ADODB.Connection

　　　CreateObject方法比DIM方法速度要慢，其好处是你不需要在工程中引用ADO对象。