如何在VBA中将SQL结果放入变量中

Sub FetchDataFromDatabase()
    Dim conn As Object
    Dim rs As Object
    Dim sqlQuery As String
    Dim varResult As Variant
    
    ' 设置连接字符串
    Dim connectionString As String
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 设置SQL查询
    sqlQuery = "SELECT ColumnName FROM TableName WHERE Condition;"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connectionString
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sqlQuery, conn
    
    ' 检查记录集是否为空
    If Not rs.EOF Then
        ' 将记录集的第一条记录的第一个字段的值赋给变量
        varResult = rs.Fields(0).Value
    Else
        varResult = "No data found"
    End If
    
    ' 关闭记录集和连接
    rs.Close
    conn.Close
    
    ' 清理对象
    Set rs = Nothing
    Set conn = Nothing
    
    ' 输出结果
    MsgBox varResult
End Sub