【分享成果，随喜正能量】当你幸福时，若幸福建立在他人痛苦之上，这不叫幸福，而是造业；当快乐时，若快乐会导致痛苦，这不叫快乐，而是痛苦尚未成熟；当富有时，若财富源于不正行业，这不叫富裕，而是累债；当自感聪明，若聪明用于自私，这不叫聪明，而是愚昧。不立于恶，所以不生苦。

《VBA数据库解决方案》教程是我推出第二套教程，目前已经是第一版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。

这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第8讲：ADO连接数据库，打开数据记录集。

第八讲 从创建ADO对象，到打开记录集

大家好，我们今天讲解VBA数据库解决方案第8讲：从创建一个ADO连接，到打开记录集的过程回顾。我们的数据库讲解到本讲，一些基本的概念，以及需要了解的一些基本知识就讲的差不多了，将逐渐过渡到以实际问题的解决为侧重点了。今天我们将之前讲解的内容再大概的回顾一下。

1 数据库的知识点

我们首先讲了数据库，务必要理解的是关系数据库中的关系是指什么。所谓的关系就是表，就是数据库中的表格，那么所谓的关系数据库就是由表格组成的数据库。

2 创建ADO对象

我们讲连接数据库的各种连接方式中，主要讲了ADO的连接方式，这种方式是比较年轻的连接方式，所谓的ADO就是ActiveX Data Objects，对于这个词的解释不必过多的追求，只要知道只是一组数据对象即可。在连接数据库的时候，给出了两种方式的ADO连接。

第一种办法是前期绑定，即引用Microsoft ActiveX Data Objects 2.x Library找到其中字尽可能高一点的版本，创建连接的代码语句如下：

Dim cnADO As ADODB.Connection ’声明一个ADO对象

Set cnADO = New ADODB.Connection ’创建一个ADO对象

或者在声明是直接创建，代码写为：

Dim cnADO As New ADODB.Connection

第二种办法：直接的创建，即后期的绑定：代码如下

Dim cnADO As Object’声明一个ADO对象

Set cnADO = CreateObject("ADODB.Connection")’创建一个ADO对象

3 ADO对象连接到数据库

我之前的代码中有两种连接方式：

第一种： strPath = ThisWorkbook.Path