如何在VBA中使用ADO对象连接SQL Server数据库？

在VBA中使用ADO (ActiveX Data Objects) 连接到SQL Server数据库通常涉及以下几个步骤：

1. 引入必要的模块：首先需要导入Microsoft ActiveX Data Objects 6.0 Library (DAO) 和 Microsoft Jet Database Engine (JET DB)。这可以通过`Tools > References`菜单在VBA编辑器中完成。

Option Explicit '声明所有变量
Dim conn As ADODB.Connection '创建ADODB.Connection对象
Dim rs As ADODB.Recordset '创建ADODB.Recordset对象

2. 建立连接字符串：根据你的数据库信息（服务器地址、端口、数据库名、用户名和密码），构建连接字符串。例如：

Dim connectionString As String
connectionString = "Provider=SQLOLEDB;Data Source=<服务器地址>;Initial Catalog=<数据库名>;User ID=<用户名>;Password=<密码>"

记得将 `<服务器地址>`、`<数据库名>`、`<用户名>` 和 `<密码>` 替换为你实际的数据库属性。

3. 打开连接：

   Set conn = New ADODB.Connection
   conn.Open connectionString

如果连接失败，会抛出异常，你可以捕获并处理它。

4. 执行查询：
完成连接后，可以使用Recordset对象执行SQL命令，比如 `rs.Open SQLQuery, conn, adOpenStatic, adLockOptimistic`, 其中 `SQLQuery` 是你要执行的SQL查询。

5. 关闭连接和释放资源：
当你不再需要连接时，记得关闭Recordset和Connection对象：

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

记住，为了保持良好的编程实践，始终应该检查这些对象是否已经设置了（`IsNull()` 或 `IsObject()` 函数）并在完成后释放它们，以防内存泄漏。