ADO创建MDB数据库连接是一种常用的数据库连接方式。ADO全称为ActiveX Data Objects，是一种Microsoft公司提供的一组用于访问数据源的组件集合。

MDB数据库是一种Microsoft Access数据库文件，通过ADO创建MDB数据库连接可以实现连接、操作该种数据库文件。

下面我们来看一下使用ADO创建MDB数据库连接的具体步骤。

步骤1. 安装Microsoft Access数据库引擎

安装Microsoft Access数据库引擎，该组件支持ADO连接Microsoft Access数据库文件（.mdb或.accdb）。可通过Microsoft官网下载并安装该组件。

步骤2. 创建连接字符串

连接字符串是指包含连接数据库所需的各种参数的字符序列，其格式为：

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=path\to\mdb\file;Persist Security Info=False;

其中，Provider为数据提供程序，此处使用的是Microsoft.ACE.OLEDB.12.0。Data Source为数据源路径，是指mdb文件的完整路径。Persist Security Info为是否保留密码相关信息，此处为False表示不保存。

步骤3. 创建连接对象

创建ADODB.Connection对象来表示与数据源的连接，该对象包含了与数据源通信所需的实际连接。其创建代码如下所示：

Dim con As New ADODB.Connection

步骤4. 打开连接对象

通过Open方法打开连接对象，Open方法的参数为连接字符串，代码实现如下：

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=path\to\mdb\file;Persist Security Info=False;"

步骤5. 关闭连接对象

连接结束时应调用Close方法关闭连接对象，防止资源泄漏。

con.Close

下面是一个完整连接MDB数据库的代码示例：

'引用ADO组件
Option Explicit
'创建连接对象
Dim con As New ADODB.Connection
'创建记录集对象
Dim rs As New ADODB.Recordset
'连接字符串
Const conStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Administrator\Documents\Access\File.mdb;Persist Security Info=False;"
Sub Connect_MDB()
  '连接数据库
  con.Open conStr
  '执行SQL
  rs.Open "SELECT * FROM TableName", con, adOpenStatic, adLockOptimistic
  '遍历记录集
  Do Until rs.EOF
    Debug.Print rs.Fields("FieldName").Value