用vba如何更新数据连接中的某一个组

用下面代码，可以刷新所有查询连接
Sub RefreshAllDataConnections()
' 获取当前活动工作簿
Dim currentWorkbook As Workbook
Set currentWorkbook = ThisWorkbook
' 刷新所有数据连接
On Error Resume Next ' 开始错误处理，以避免因某些连接无法刷新而中断
For Each conn In currentWorkbook.Connections
conn.Refresh
Next conn
' 如果存在查询，也刷新它们
For Each Query In currentWorkbook.Queries
Query.Refresh
Next Query
On Error GoTo 0 ' 关闭错误处理
' 提示用户完成刷新
MsgBox "所有数据连接和查询已刷新！"
End Sub

下面是AI给的代码，出现更新完毕提示，实际持仓组中的查询连接没有执行更新。
Sub RefreshSpecificConnectionGroup()
' 获取当前活动工作簿
Dim currentWorkbook As Workbook
Set currentWorkbook = ThisWorkbook
' 设置要刷新的连接组名称
Dim groupName As String
groupName = "持仓"
' 初始化未能刷新的连接名称列表
Dim connectionNames As String
connectionNames = ""
' 刷新指定组中的所有数据连接
Dim conn As Object
On Error Resume Next ' 开始错误处理
For Each conn In currentWorkbook.Connections
If InStr(1, conn.Name, groupName) > 0 Then
conn.Refresh
If Err.Number <> 0 Then ' 检查是否有错误发生
connectionNames = connectionNames & IIf(connectionNames = "", "", ", ") & conn.Name
Err.Clear ' 清除错误信息
End If
End If
Next conn
On Error GoTo 0 ' 关闭错误处理
' 根据是否有连接未能刷新，提示用户
If connectionNames <> "" Then
MsgBox "以下连接未能刷新：" & connectionNames, vbExclamation
Else
MsgBox "所有 '" & groupName & "' 组的连接已刷新！", vbInformation
End If
End Sub