如果服务器需要特定的用户名和密码，是否在VBA中连接到SQL Server？

Sub ConnectToSQLServer()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    
    ' 设置连接字符串，包括服务器名称、数据库名称、用户名和密码
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    ' 打开数据库连接
    conn.Open
    
    ' 在此处执行SQL查询或其他操作
    
    ' 关闭数据库连接
    conn.Close
    Set conn = Nothing
End Sub