如何在Access或Excel中最好地使用VBA来测试ODBC连接？

Sub TestODBCConnection()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strConnection As String
    Dim strSQL As String

    ' 设置连接字符串
    strConnection = "Driver={SQL Server};Server=<服务器名称>;Database=<数据库名称>;UID=<用户名>;PWD=<密码>;"

    ' 创建连接对象
    Set conn = New ADODB.Connection

    ' 打开连接
    conn.Open strConnection

    ' 设置SQL语句
    strSQL = "SELECT * FROM <表名称>"

    ' 创建记录集对象
    Set rs = New ADODB.Recordset

    ' 打开记录集
    rs.Open strSQL, conn, adOpenStatic, adLockReadOnly, adCmdText

    ' 遍历记录集并输出结果
    While Not rs.EOF
        Debug.Print rs("列名称").Value
        rs.MoveNext
    Wend

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

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