带有OLEDB的Sql字符串在VBA中出现错误1004

Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;

Sub TestConnection()
    Dim conn As Object
    Dim rs As Object
    Dim connStr As String
    Dim sqlStr As String
    
    ' 设置连接字符串
    connStr = "Provider=SQLOLEDB;Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password;"
    
    ' 设置SQL语句
    sqlStr = "SELECT * FROM TableName"
    
    ' 创建ADODB连接对象
    Set conn = CreateObject("ADODB.Connection")
    
    ' 打开连接
    conn.Open connStr
    
    ' 创建ADODB记录集对象
    Set rs = CreateObject("ADODB.Recordset")
    
    ' 执行查询
    rs.Open sqlStr, conn
    
    ' 处理结果
    Do While Not rs.EOF
        Debug.Print rs("ColumnName")
        rs.MoveNext
    Loop
    
    ' 关闭记录集和连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub