Update Concatenation query using VBA

[Barmaximus]

The following code is intended to update a comma delimited list of all matches in [Data - Inventory].Description using a keyword list from [Component Library].

The query defined as strSQL works perfectly as a standalone list. When implemented into this sub, the code returns error 3061 (too few arguments) on "CallCurrentdb.Execute"

A previous implementation of this code gave me this error, but was resolved by treating a mishandling of quotations and spacing.I fear I am missing a syntax error, or this subquery using the Concat function simply can not be used in this fashion.

Private Sub cmdPartTypes_DblClick(Cancel As Integer)
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
 
    strSQL = _
"SELECT x.CompID, Max(Concat(Nz(x.CompID), Nz(x.PartType))) AS Types " & _
"FROM (SELECT [Data - Inventory].ID AS [CompID], [Component Library].Type AS [PartType] " & _
"FROM [Component Library] INNER JOIN [Data - Inventory] ON [Data - Inventory].Description LIKE '*' &  [Component Library].Keyword & '*'" & _
") AS x GROUP BY x.CompID;"
 
    Set db = CurrentDb()
    Set rst = db.OpenRecordset(strSQL)
    With rst
        If Not (.BOF And .EOF) Then
            Call .MoveFirst
            Do While Not .EOF
                strSQL = _
                    "UPDATE [Data - Inventory] " & _
                    "SET [Type] = " & !Types & _
                    " WHERE [Data - Inventory].ID = " & !CompID
                    Call CurrentDb.Execute(Query:=strSQL)
                Call .MoveNext
            Loop
        End If
        Call .Close
    End With
    Set rst = Nothing
    Set db = Nothing
 
End Sub
 

Here is the Concat function, found in an older post on this site.

'Concat Returns lists of items which are within a grouped field
Public Function Concat(strGroup As String, _
                       strItem As String) As String
    Static strLastGroup As String
    Static strItems As String
 
    If strGroup = strLastGroup Then
        strItems = strItems & ", " & strItem
    Else
        strLastGroup = strGroup
        strItems = strItem
    End If
    Concat = strItems
End Function
 

For clarity, the end goal is to find and concatenate the Part Type associated with each keyword match and update the [Data - Inventory].Type with the results.

See this older post for sample tables
Any suggestions are greatly appreciated.

[ADezii]

If you can Upload a functional subset of the Database, stripped of any sensitive data, I would be happy to have a look at it.