Создание поля с множеством значений в одном поле т.е. преобразование столбца или строки с множеством значений в одном

Public Function UnionStr2() As Variant
Dim rst As DAO.Recordset
Dim s$
On Error GoTo UnionStr2_Err
    
    s = "SELECT TOP 3 * FROM t3 WHERE (Отправлено Is Null) ORDER BY Код DESC;"
    'А в запросе видно четыре! Тогда так:
    's = "SELECT TOP 4 * FROM t3 WHERE (Отправлено Is Null) ORDER BY Код DESC;"
    Set rst = CurrentDb.OpenRecordset(s, dbOpenSnapshot)  'Только просмотр
    
'Перебор всех записей в наборе
    With rst
        Do Until .EOF = True 'Цикл до конца таблицы
            'Debug.Print " - " & !pole
            UnionStr2 = UnionStr2 & !pole & "; "
            .MoveNext
        Loop
    End With
 
UnionStr2_End:
    On Error Resume Next
    rst.Close
    Set rst = Nothing
    Exit Function
    
UnionStr2_Err:
     MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description, vbCritical
    Resume UnionStr2_End
 
End Function

Private Sub Report_Open(Cancel As Integer)
 Dim S As String, _
     i As Byte
 With CurrentDb.OpenRecordset("Имя перекрестного запроса")
  S = "=[" & .Fields(0).Name & "]"
  For i = 1 To .Fields.Count - 1
   S = S & " & [" & .Fields(i).Name & "]"
  Next
 End With
 Поле.ControlSource = S
End Sub