如何在窗体中编写显示/隐藏查询列的vba代码？( MS- Access)

Private Sub btnToggleColumn_Click()
    Dim strSQL As String
    
    ' 获取查询的SQL语句
    strSQL = Me.RecordSource
    
    ' 检查查询语句是否为空
    If strSQL <> "" Then
        ' 检查查询语句中是否包含SELECT关键字
        If InStr(1, strSQL, "SELECT", vbTextCompare) > 0 Then
            ' 获取查询语句中的字段列表
            Dim strFields As String
            strFields = Mid(strSQL, InStr(1, strSQL, "SELECT", vbTextCompare) + 6)
            strFields = Left(strFields, InStr(1, strFields, "FROM", vbTextCompare) - 2)
            
            ' 将字段列表转换为数组
            Dim arrFields() As String
            arrFields = Split(strFields, ",")
            
            ' 遍历字段数组
            Dim i As Integer
            For i = LBound(arrFields) To UBound(arrFields)
                ' 移除字段前后的空格
                Dim strField As String
                strField = Trim(arrFields(i))
                
                ' 检查字段是否在窗体上存在
                If Me.Controls(strField) Is Nothing Then
                    ' 隐藏查询列
                    Me.Controls(strField).ColumnHidden = True
                Else
                    ' 显示查询列
                    Me.Controls(strField).ColumnHidden = False
                End If
            Next i
        End If
    End If
End Sub