连接VBA SQL语句中的字段时出现错误424

Sub ConnectToSQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置数据库连接字符串
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 创建记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 构造SQL语句
    strSQL = "SELECT 字段1, 字段2 FROM 表名 WHERE 条件;"
    
    ' 执行SQL语句
    rs.Open strSQL, conn
    
    ' 遍历记录集并处理数据
    If Not rs.EOF Then
        Do Until rs.EOF
            ' 处理数据
            Debug.Print rs("字段1").Value
            Debug.Print rs("字段2").Value
            
            rs.MoveNext
        Loop
    End If
    
    ' 关闭记录集和数据库连接
    rs.Close
    conn.Close
    
    ' 释放对象
    Set rs = Nothing
    Set conn = Nothing
End Sub