ADO (ActiveX Data Objects) 是一种 Microsoft 提出的数据访问技术，可以连接各种类型的数据源，包括 SQL 数据库、Access 数据库、Excel 表格等。ADO 连接 SQL 数据库非常常见，本文将介绍如何使用 ADO 连接 SQL 数据库的步骤，附有代码示例。

步骤一：创建 ADO 连接对象

在使用 ADO 连接 SQL 数据库之前，需要创建一个 ADO 连接对象，代码如下：

Dim conn As ADODB.connection
Set conn = New ADODB.connection

在创建连接对象时，需要引用 ADODB 库。

步骤二：设置连接字符串

连接字符串是连接到 SQL 数据库的关键，需要包含服务器名称或 IP 地址、数据库名称、用户名和密码等信息。不同的 SQL 数据库可能有不同的连接字符串格式，例如 SQL Server 的连接字符串格式为：

"Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDatabaseName;User ID=myUsername;Password=myPassword;"

其中，Data Source 表示服务器名称或 IP 地址，Initial Catalog 表示数据库名称，User ID 和 Password 表示用户名和密码。

需要根据自己所连接的 SQL 数据库的类型和连接方式设置连接字符串。

代码示例：

Dim strConn As String
strConn = "Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDatabaseName;User ID=myUsername;Password=myPassword;"

步骤三：打开连接

使用 Open 方法打开连接：

conn.Open strConn

其中，strConn 为刚刚设置的连接字符串。

步骤四：查询数据

连接成功后，可以使用 SQL 语句查询数据。例如，查询 students 表中所有学生的姓名和年龄：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT Name, Age FROM students", conn

其中，Recordset 对象是返回查询结果的容器，可以使用 Open 方法打开查询结果集。

步骤五：关闭连接

查询完毕后，需要关闭连接以释放资源：

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

完整代码示例：

Dim conn As ADODB.connection
Dim rs As ADODB.Recordset
Dim strConn As String

Set conn = New ADODB.connection
Set rs = New ADODB.Recordset

strConn = "Provider=SQ