如何在VBA中构建执行SQL查询语句？

在VBA代码中，我们可以使用ADODB对象来连接 数据库 并执行 SQL 查询语句。具体步骤如下：

引用ADODB库：在VBA中，我们需要引用ADODB库才能使用相关对象。可通过菜单栏“工具”->“引用”->选择“ Microsoft ActiveX Data Objects Libary”来进行引用。

建立连接：使用ADODB.Connection对象建立 数据库 连接。连接语句应该包括 数据库 类型、服务器名称（或IP）、 数据库 名称、用户名、密码等信息。例如：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDBName;User Id=myUsername;Password=myPassword;"
conn.Open
执行SQL查询：使用ADODB.Recordset对象执行SQL查询。需要先将SQL查询语句赋值给Recordset的Source属性，再执行查询。例如：
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Source = "SELECT * FROM myTable"
rs.ActiveConnection = conn
rs.Open
处理返回结果：通过Recordset对象可以获取查询结果。例如：
Do Until rs.EOF
    Debug.Print rs("myField")
    rs.MoveNext
完整示例代码如下：
Sub RunSQLQuery()
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDBName;User Id=myUsername;Password=myPassword;"
    conn.Open
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.Source = "SELECT * FROM myTable"
    rs.ActiveConnection = conn
    rs.Open
    Do Until rs.EOF
        Debug.Print rs("myField")
        rs.MoveNext
    rs.Close
    conn.Close
End Sub