MSACCESS 2013 -如何执行和显示来自vba的SELECT SQL

Dim conn As Object
Dim rs As Object
Dim strSQL As String

' 创建ADO连接对象
Set conn = CreateObject("ADODB.Connection")

' 设置连接字符串，指定数据库文件路径和提供程序
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Path\To\Your\Database.accdb"

' 打开数据库连接
conn.Open

' 创建ADO记录集对象
Set rs = CreateObject("ADODB.Recordset")

' 设置SELECT SQL语句
strSQL = "SELECT * FROM TableName"

' 执行SELECT SQL语句并将结果存储在记录集中
rs.Open strSQL, conn

' 遍历记录集并显示结果
Do Until rs.EOF
    Debug.Print rs.Fields("ColumnName").Value
    rs.MoveNext
Loop

' 关闭记录集和连接
rs.Close
conn.Close

' 释放对象
Set rs = Nothing
Set conn = Nothing