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对象。